Application主程序对象方法（四）

大家好，本节将介绍Application对象的GetSaveAsFilename方法，以及介绍如何让Excel程序说话。

GetSaveAsFilename方法

Application对象的GetSaveAsFilename方法，可以打开一个标准的“另存为”对话框，在该对话框中用户可以选择（或输入）一个文件名，该方法只返回文件名及其路径。（但并没有执行实际操作。）如果用户单击“取消”关闭对话框，则返回False。

基础知识

GetSaveAsFilename方法语句：

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

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

2、参数FileFilter可选。指定文件筛选条件的字符串。如果省略本参数，则默认参数值为“所有文件 (*.*), *.*”。和上节介绍的GetOpenFilename方法的第一参数一样。

由文件筛选字符串和通配符表示的文件筛选规则说明组成，中间用逗号隔开。每个字符串都在“文件类型”下拉列表框中列出。例如文本文件：“文本文件 (*.txt), *.txt“

筛选所有Excel类型文件，表示为“Excel文件（*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm,” 。注意不同的文件类型用分号间隔。

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

4、参数Title ，指定对话框标题。如果省略本参数，则使用默认标题。

5、参数ButtonText，不用。

示例

下面打开“另存为”对话框，选择好保存的路径后，输入保存的文件名，单击“保存”就返回设置的文件名和位置。

Sub test()

Dim savename As Variant

Dim str As String

str = "文本文件(*.txt),*.txt"

savename = Application.GetSaveAsFilename(filefilter:=str)

Debug.Print savename

End Sub

代码中首先定义strname变量为variant，用它来接受GetSaveAsFilename的返回值。

保存类型是选中的txt文本文件，选中”保存"时，可以返回结果为文件的路径和名称。（实际并没有保存文件的操作。）如果选择取消，则返回false。

Excel 会 说 话

下面顺带介绍一个有趣的方法，可以让excel说话。

这个功能主要是通过application对象下的speech对象的speak方法来实现。

简单的形式的语法为

application.speech.speak “字符串”

下面我们就举例让excel说一句简单的绕口令。

Sub test()

Application.Speech.Speak ("红鲤鱼与绿鲤鱼与驴")

End Sub

代码很简单，大家可以尝试改写下字符串的文字，听一下。

本节主要介绍了application主程序对象的GetSaveAsFilename方法，参数和上节介绍的GetOpenFilename方法类似。

至此常用对象的大部分属性和方法都介绍完，其他不常用的对象的属性和方法后期会视情况再补充，后面将开始介绍VBA事件、数组、函数等内容，祝大家学习快乐。