VBA中通过选择对话框选择文件或文件夹-filedialog用法

通过选择对话框选择文件夹

利用FileDialog对话框进行文件选择操作，包括打开文件对话框和保存文件对话框的设置与使用，涵盖了基本用法、自定义过滤器及处理用户取消等关键点。

Sub test1() '选择文件
Dim dig
Set dig = Application.FileDialog(msoFileDialogFilePicker)  '定义对象，指定参数
With dig
.AllowMultiSelect = True                    '允许多选
.Filters.Add 'Excel文件', '*.xls*', 1 '默认文件类型
.InitialFileName = ThisWorkbook.FullName ''d:\'    '默认路径
.InitialView = msoFileDialogViewDetails       '文件显示方式
.Title = '对话框测试'                 '对话框标题
If .Show = 0 Then                    'show显示对话框，判断返回值
MsgBox '你点了取消'
Else
MsgBox dig.SelectedItems(1)      '取得选择的文件名
End If
End With
End Sub

Sub test3() '打开文件
Dim dig
Set dig = Application.FileDialog(msoFileDialogOpen)
With dig
.AllowMultiSelect = True
.Filters.Add