在VBA中經常要用到文件對話框來進行打開文件、選擇文件或選擇文件夾的操作。
用Microsoft Office提供的文件對話框比較方便。
用法如下
Application.FileDialog(fileDialogType)
fileDialogType? ?? ?MsoFileDialogType?類型，必需。文件對話框的類型。

MsoFileDialogType 可為以下 MsoFileDialogType 常量之一。

msoFileDialogFilePicker??允許用戶選擇文件。

msoFileDialogFolderPicker??允許用戶選擇一個文件夾。

msoFileDialogOpen??允許用戶打開文件。用Excel打開。

msoFileDialogSaveAs??允許用戶保存一個文件。

分別舉例如下：

1、msoFileDialogFilePicker?
1）選擇單個文件

Sub SelectFile()
'選擇單一文件
'www.okexcel.com.cn
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
'單選擇
.Filters.Clear
'清除文件過濾器
.Filters.Add "Excel Files", "*.xls;*.xlw"
.Filters.Add "All Files", "*.*"
'設置兩個文件過濾器
If .Show = -1 Then
'FileDialog 對象的 Show 方法顯示對話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
MsgBox "您選擇的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
End If
End With
End Sub

2）選擇多個文件

Sub SelectFile()
'選擇多個文件
'www.okexcel.com.cn
Dim l As Long
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
'單選擇
.Filters.Clear
'清除文件過濾器
.Filters.Add "Excel Files", "*.xls;*.xlw"
.Filters.Add "All Files", "*.*"
'設置兩個文件過濾器
.Show
'FileDialog 對象的 Show 方法顯示對話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
For l = 1 To .SelectedItems.Count
MsgBox "您選擇的文件是：" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"
Next
End With
End Sub

2、msoFileDialogFolderPicker

Sub SelectFolder()
'選擇單一文件
'www.okexcel.com.cn
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
'FileDialog 對象的 Show 方法顯示對話框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
MsgBox "您選擇的文件夾是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
End If
End With
End Sub

文件夾僅能選擇一個

3、msoFileDialogOpen
4、msoFileDialogSaveAs
使用方法與前兩種相同
只是在.show
可以用.Execute方法來實際打開或者保存文件。

轉載于:https://www.cnblogs.com/p4759521/articles/2203828.html

總結

以上是生活随笔為你收集整理的(转) VBA文件对话框的应用（VBA打开文件、VBA选择文件、VBA选择文件夹)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。