SelectAFile.png

Application.FileDialog(DialogType)的配置參數(shù)和函數(shù)解釋：

• DialogType:
  Application.FileDialog(msoFileDialogFilePicker) - 選擇文件
  Application.FileDialog(msoFileDialogFolderPicker) -選擇文件夾
• Title - 彈出文件選擇窗口的標(biāo)題。
• AllowMultiSelect - 是否允許選擇多個(gè)文件或者文件夾，True為多選，F(xiàn)alse為單選。
• InitialFileName - 默認(rèn)選擇對話框的路徑以及默認(rèn)文件名
• Filters.Clear - 清除當(dāng)前的過濾規(guī)則。
• Filters.Add description, criteria, position - 添加過濾規(guī)則
  description - 規(guī)則名稱；
  criteria - 過濾規(guī)則，過濾txt結(jié)局的文件規(guī)則為“.txt”，同一條規(guī)則里添加多個(gè)過濾項(xiàng)通過“;”來隔開，例如同時(shí)過濾.xls和.xlsx的文件規(guī)則為'.xlsx; *.xls'
  postion - 規(guī)則插入的位置，起始為1。
• SelectedItems - 獲取選擇到的項(xiàng)，為數(shù)組，起始為1。
• ButtonName - 選擇按鍵名稱。

1 文件選擇對話框

源代碼示例：

2 文件夾選擇對話框

源代碼示例：

'#########################################################
'選擇一個(gè)文件夾
Sub SelectFolderDialog()
'通過對話框選擇文件夾
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = 'Select Folders'
    If .Show Then
        ipath = .SelectedItems
    End If
End With

If IsEmpty(ipath) Then Exit Sub     '如果按取消鍵，退出
Debug.Print ipath(1)                       '輸出文件夾路徑
End Sub