Sử dụng "Application.GetOpenFilename" như thế nào?

[giangcoltech]

Chào các bạn, cho mình hỏi một chút. Mình đã tạo một command button để lấy file name của nhiều file excel một lần, mình sử dụng đoạn code như sau:
'start

Private Sub CmdOpenCDD_Click()
Global cddname As Variant
Dim k As Integer
cddname = Application.GetOpenFilename("Excel Files (*.xls), *.xls", MultiSelect:=True)
If TypeName(cddname) = "Boolean" Then
    If cddname <> False Then
    k = 1
    Do While cddname(k) <> ""
        MsgBox cddname(k)
        k = k + 1
    Loop
 End If
End If
End Sub

'END
Tuy nhiên "TypeName(cddname) luôn khác "Boolean" ngay cả khi mình nhấn""Cancel".
Cảm ơn các bạn.

 

[voda]

Bạn xem đoạn code này có được không nhé!

Private Sub CmdOpenCDD_Click()
On Error Resume Next
Dim cddname As Variant
Dim k As Integer
cddname = Application.GetOpenFilename("Excel Files (*.xls), *.xls", MultiSelect:=True)
If TypeName(cddname) = "Boolean" Then
Exit Sub
Else
For k = 1 To UBound(cddname)
Workbooks.Open cddname(k) 'Nếu chỉ lấy tên, bỏ dòng này
MsgBox cddname(k)
Next
End If
End Sub