VBA⽂件对话框
语法：
expression.FileDialog(fileDialogType )
expression，⼀个代表 Application 对象的变量。
通常写作 Application.filedialog(fileDialogType)
参数
名称必需/可选数据类型说明fileDialogType必需MsoFileDialogType⽂件对话框的类型
其中，fileDialogType 必需 MsoFileDialogType ⽂件对话框的类型。
MsoFileDialogType 可为下述常量之⼀：
常量值说明
msoFileDialogOpen1允许⽤户打开⽂件
msoFileDialogSaveAs2允许⽤户保存⽂件
msoFileDialogFilePicker3允许⽤户选择⽂件
msoFileDialogFolderPicker4允许⽤户选择⽂件夹FildDialog 对象的 Show ⽅法
御姐壁纸
当设置完FileDialog 对象的基本属性后，需要使⽤ Show ⽅法打开对话框。
Show ⽅法具有⼀个返回值：当⽤户选择⽂件（夹）后，返回 -1；当⽤户未选择或者直接关闭对话框，则返回 0。
FildDialog 对象的Execute ⽅法
当⽤户选择某个⽂件后，若 FileDialog 类型为 msoFileDialogOpen 或 msoFileDialogSaveAs 时，则该对象的 Execute ⽅法执⾏打开或者保存⽂件的操作。
FildDialog对象的常⽤属性及其介绍
值说明读/写.Filters⽂件筛选⽂本对象只读.FilterIndex⽂件筛选的序号读/写
.ButtonName按钮显⽰的⽂本读/写.Title对话框的标题读/写.AllowMultiSelect是否允许选择多个⽂件读/
写
.InitialFileName可选项，默认打开的地址读/写.InitialView⽂件排列的默认视图读/写.SelectedItems获取 FileDialogSelectedItems 集合只读
Filters属性，返回⼀个FileDiabogFilters集合对象。可以使⽤其Clear⽅法和Delete⽅法删除筛选的项⽬，也可以使⽤Add⽅法添加筛选项⽬，其Add⽅法如下（参考 “⽰例1）：
Filters.add(Descriptions, Extensions, [Position])
参数类型说明⽰例Descriptions⽂本⽂件类型的描述—
Extension⽂本⽂件类型的扩展名，可以由逗号或分号隔开多个相同描述的扩展名如：*.gif, *.jpg, *.jpeg Position—添加⽂件类型的项⽬位置，该参数从1开始—
FilterIndex属性表⽰要默认显⽰的 “⽂件筛选类型”，其对应 Filters属性的 “Position”参数，参考 “⽰例1”
⽰例1
Sub Main()
Dim fd As FileDialog
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
马到成功什么意思With fd
.Filters.Clear'清除现有的⽂件类型
.Filters.Add "Images","*.gif; *.jpg; *.jpeg",1'添加选择⽂件类型
.Filters.Add "⾃定义格式类型", "*.格式1;*.格式2",2
.Filters.Add "所有⽂件", "*.*",3
.FilterIndex =2'默认显⽰的 “⽂件筛选类型”
If .Show =-1Then'显⽰窗体
For Each vrtSelectedItem In .SelectedItems '遍历所有选择的⽂件
MsgBox "Selected item's path: "& vrtSelectedItem
Next vrtSelectedItem
El
End If
End With
坟的组词Set fd =Nothing'清空对象
End Sub
ButtonName 属性，读/写，设置或获取代表⽂件对话框中动作按钮上所显⽰⽂本的 String 类型的值，通常可以使⽤其默认属性，⽆需特殊设置。
Title属性，读/写，设置对话框标题，其长度不可超过127字符，通常可使⽤其默认属性，⽆需单独设置。
AllowMultiSelect 属性，读/写，是否允许选择多个⽂件，True 允许多选，Fal 不允许多选
注：
1. 此属性对 “⽂件夹选取器” 对话框或 “另存为” 对话框⽆效，因为⽤户永远⽆法从这些类型的⽂件对话框中选择多个⽂
件。
InitialFileName 属性，读/写，设置或返回⼀个 String 类型的值，代表⽂件对话框中初始显⽰的路径或⽂件名。
注：
1. 指定⽂件名时可以使⽤ * 和 ? 通配符，但在指定路径时则不能使⽤它们。
2. 如果指定了路径⽽没有指定⽂件名，则对话框中将显⽰⽂件筛选器所允许的所有⽂件。
3. 如果指定了位于初始⽂件夹中的某个⽂件，则对话框中只显⽰该⽂件。
4. 如果指定了并不存在于初始⽂件夹中的⽂件名，则对话框将不包含任何⽂件。
5. 你在 InitialFileName 属性中指定的⽂件类型将覆盖⽂件筛选器设置。
6. 如果指定了⽆效路径，则将使⽤上次使⽤的路径。
7. 如果使⽤⽆效路径，则系统会向⽤户发出警告消息。
河北满城
8. 将此属性设置为长度超过 256 个字符的字符串会导致运⾏时错误。
InitialView 属性，读/写，获取或设置⼀个 “MsoFileDialogView ” 常量, 该常量代表⽂件和⽂件夹在⽂件对话框中的默认显⽰样式。
其值可以参考链接：
SelectedItems 属性，只读，获取 FileDialogFilters 集合
雄伟的意思
当 FileDialog 对象的⽅法 Show = -1，即⽤户选择了⽂件（夹）对象，则返回⽤户在⽂件对话框中所选的⽂件的路径列表。
⽰例
在此⽰例中，Microsoft Excel 打开⽂件对话框，允许⽤户选择⼀个或多个⽂件。 选择这些⽂件后，Excel 会在单独的消息中显⽰每个⽂件的路径。包子怎么做
Sub UFileDialogOpen()
Dim lngCount As Long
With Application.FileDialog(msoFileDialogOpen)'对话框为打开⽂件样式
.AllowMultiSelect =True
.Show
For lngCount =1To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount
End With
End Sub
以下代码创建⼀个选择⽂件夹的对话框：
Sub UFolder
dim fd as FileDialog
dim fp as string
Set fd = Application.FileDialog(msoFileDialogFolderPicker)'对话框为选择⽂件夹样式With fd
彩泥大全
.InitialFileName = ActiveWorkbook.path
If .Show =-1Then'如果进⾏了选择并确认
fp= .SelectedItems(1)'fp = 选中的⽂件夹地址
Msgbox fp
El
Set fd =Nothing
Exit Sub'退出程序
End If
End With
end Sub
草山
⾃定义⽰例：
With Application.FileDialog(fileDialogType)
.InitialFileName = filepath '可选项，默认打开的地址
.AllowMultiSelect =Fal
If .Show Then P = .SelectedItems(1)El:Exit Sub
End With
