返回一个 FileDialog 对象,该对象代表文件对话框的一个单独实例。
expression.FileDialog(FileDialogType)
expression 必需。该表达式返回“应用于”列表中的一个对象。
FileDialogType MsoFileDialogType,必需。对话框类型。
MsoFileDialogType 可以是下列 MsoFileDialogType 常量之一: |
msoFileDialogFilePicker |
msoFileDialogFolderPicker |
msoFileDialogOpen |
msoFileDialogSaveAs |
本示例显示“另存为”对话框。
Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
End Sub
本示例显示“打开”对话框并允许用户打开多个文件。
Sub ShowFileDialog()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
End Sub