学步园

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

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

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

InitialFilename      Variant 类型，可选。指定建议的文件名。如果省略本参数，Microsoft Excel 将活动工作簿的名称作为建议的文件名。

FileFilter      Variant 类型，可选。一个指定文件筛选条件的字符串。

本字符串由一个文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：“文本文件 (*.txt)、*.txt、Add-In 文件、(*.xla)、*.xla”。

要为单个文件筛选类型使用多个 MS-DOS 通配符表达式，需用分号将通配符表达式分开。例如：“Visual Basic 文件 (*.bas; *.txt)、*.bas; *.txt”。

如果省略本参数，则默认参数值为“所有文件 (*.*),*.*”。

FilterIndex      Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到FileFilter 指定的筛选条件数目之间。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。

Title      Variant 类型，可选。指定对话框标题。如果省略本参数，则使用默认标题。

ButtonText      Variant 类型，可选。仅用于 Macintosh。

说明

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

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

示例

本示例显示文本文件的“另存为”对话框。如果用户选择了一个文件名，则在消息框中显示所选的文件名。

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

转载自：http://www.excelpx.com/home/show.aspx?id=4137

GetSaveAsFilename是通过Application来调用的，而Application又是通过VBA环境来使用的，因此，本例子给你介绍的是在Excel环境下，调用另存为对话框的示例代码。
 
　　它的格式如下：
 
　　Dim Filename As String
　　Filename = Application.GetSaveAsFilename(FileFilter:="文件名称, *.格式")
 
　　一、代码如下
 
　　Dim fileSaveName  
　　fileSaveName = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")  
　　If fileSaveName <> False Then 
　　MsgBox "Save as " & fileSaveName  
　　End If 
　　二、指定对话框的标题
 
　　Dim fname As String
 
　　Workbooks.Open filename:=2099成绩.xls
　　ActiveSheet.Range(A1).Value = 保存
 
　　fname = Application.GetSaveAsFilename( _
        InitialFileName:=成绩保存.xls, _
        Title:=这里是标题文字)
 
　　If fname &lt;&gt; False Then
　　　ActiveWorkbook.SaveAs filename:=fname
　　End If
 
　　知识拓展：
 
　　Application.GetSaveAsFilename 方法：简单来说就是显示另存为对话框，方便用户输入文件名进行保存
 
　　语法：
 
　　expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
 
　　expression       必需。该表达式返回Application类型对象
　　InitialFilename  Variant类型，可选。指定初始的文件名
　　FileFilter           Variant类型，可选。一个指定文件筛选条件的字符串，格式如："文本文件, *.txt"
　　FilterIndex        Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到 FileFilter 指定的筛选条件数目之间
　　Title                 Variant 类型，可选。指定对话框标题
　　ButtonText       Variant 类型，可选。仅用于 Macintosh
 
　　使用的时候请注意如下几项：
 
　　1.如果省略InitialFilename参数，Microsoft Excel 将活动工作簿的名称作为初始文件名
　　2.如果省略FileFilter参数，则默认参数值为“所有文件 (*.*),*.*”
　　3.如果省略FilterIndex参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件
　　4.如果省略Title参数，则使用默认标题。
Come from http://www.dzwebs.net Article Url��http://www.dzwebs.net/4146.html