VBA 文件/文件夾對話框Application.FileDialog

長生閣 2021-10-25

展開全文

SelectAFile.png

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

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

1 文件選擇對話框

源代碼示例：

'#########################################################
'選擇單個文件對話框
Sub SelectSingleFileDialog()
'通過對話框選擇文件
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = 'Select A File'                        '選擇窗口的標題
    .InitialFileName = 'D:\TestFolder\TestFile.txt' '初次打開窗口的路徑以及默認名稱
    .AllowMultiSelect = False                       '是否允許選擇多個文件
    .Filters.Clear                                  '清除現(xiàn)有規(guī)則
    .Filters.Add 'Text File', '*.txt'               '增加規(guī)則
    .Filters.Add 'EXCEL File', '*.xlsx; *.xls', 1   '增加規(guī)則到第一位
    .Filters.Add 'All File', '*.*', 1               '增加規(guī)則到第一位
    If .Show Then                                   '顯示文件選擇對話框
        .ButtonName = 'Select Me'
        Set ipath = .SelectedItems                  '獲取選擇項,無論是否選擇一項還是多項，返回的選項都是多項
    End If
End With

If IsEmpty(ipath) Then Exit Sub     '如果按取消鍵，退出
ipath = ipath(1)                    '獲取第一項選擇
Debug.Print ipath                '輸出選擇文件名
End Sub

2 文件夾選擇對話框

源代碼示例：

'#########################################################
'選擇一個文件夾
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