全部显示

FileDialog 属性

       

返回一个 FileDialog 对象,代表文件对话框的一个实例。

expression.FileDialog(dialogType)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

dialogType  必需,MsoFileDialogType。文件对话框的类型。

示例

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

Dim dlgSaveAs As FileDialog

Set dlgSaveAs = Application.FileDialog( _
    FileDialogType:=msoFileDialogSaveAs)

dlgSaveAs.Show

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

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
    FileDialogType:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    .Show
End With