Application.GetSaveAsFilename 方法 (Excel)

显示标准的“另存为”对话框，获取用户文件名，而无须真正保存任何文件。

语法

expression.GetSaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
InitialFilename	可选	Variant	指定建议的文件名。 如果省略该参数，Microsoft Excel 使用活动工作簿的名称。
FileFilter	可选	Variant	指定文件筛选条件的字符串。 最大长度为 255 个字符，否则该方法返回错误 2015。
FilterIndex	可选	Variant	指定默认文件筛选条件的索引号，从 1 到 FileFilter 中指定的筛选器数。 如果此参数被省略或大于存在的筛选器数，使用的是第一个文件筛选器。
Title	可选	Variant	指定对话框的标题。 如果省略该参数，则使用默认标题。
ButtonText	可选	Variant	仅限 Macintosh。

返回值

Variant

备注

FileFilter 参数中传递的此字符串包含各对后跟 MS-DOS 通配符文件筛选器规范的文件筛选器字符串，其中每个部分和每个字符串对都以逗号分隔。 各对字符串在“文件类型”下拉列表框中列出。 例如，以下字符串指定两个文件筛选器- text 和 addin：

"Text Files (*.txt), *.txt, Add-In Files (*.xla), *.xla"

若要对一种文件筛选器类型使用多个 MS-DOS 通配符表达式，请使用分号来分隔通配符表达式；例如 "Visual Basic Files (*.bas; *.txt), *.bas;*.txt"。

此方法返回选定文件名或用户输入的文件名。 返回的文件名可能包含路径规范。 如果用户取消了对话框，则该值为 False。

此方法可能会更改当前驱动器或文件夹。

将 InitialFilename 与扩展名一起使用并应用过滤器时，此扩展名必须与过滤器扩展名匹配，否则，对话框中显示的有效 InitialFilename 将为空字符串。

示例

本示例显示文本文件的“另存为”对话框。 在用户选择文件名后，此示例便会在消息框中显示相应文件名。

fileSaveName = Application.GetSaveAsFilename( _ 
 fileFilter:="Text Files (*.txt), *.txt") 
If fileSaveName <> False Then 
 MsgBox "Save as " & fileSaveName 
End If

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。