[VBA] 打开文件夹

 1 '显示打开文件夹对话框

 2 With Application.FileDialog(msoFileDialogFolderPicker)

 3 .Show

 4 If .SelectedItems.Count = 0 Then Exit Sub '未选择文件夹

 5 strFolder = .SelectedItems(1)

 6 End With

 7  

 8 '获取文件夹中的所有文件列表

 9 varFileList = fcnGetFileList(strFolder)

10  

11 If Not IsArray(varFileList) Then

12 MsgBox "未找到文件", vbInformation

13 Exit Sub

14 End If