全部显示

FileDialog 属性

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

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

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

示例

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

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