Question

全部显示

返回 FileDialog 对象，该对象代表文件对话框的单个示例。

expression.FileDialog(Type)

expression必选。该表达式返回一个 Application 对象。

Type必选。MsoFileDialogType 类型。该类型为返回的对话框类型。

MsoFileDialogType 可以是下列 MsoFileDialogType 类型常数之一。

msoFileDialogFilePicker

msoFileDialogFolderPicker

msoFileDialogOpen

msoFileDialogSaveAs

示例

本示例显示“另存为”对话框。

Sub ShowSaveAsDialog()
    Dim dlgSaveAs As FileDialog
    Set dlgSaveAs = Application.FileDialog( _
        Type:=msoFileDialogSaveAs)
    dlgSaveAs.Show
End Sub

本示例显示“打开”对话框，并允许用户选择多个文件以打开。

Sub ShowFileDialog()
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog( _
        Type:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        .Show
    End With
End Sub