Question

全部显示

返回一个 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