GetSaveAsFilename保存文件例子.ppt

GetSaveAsFilename是通过Application来调用的，而Application又是通过VBA环境来使用的，因此，本例子给你 介绍的是在Excel环境下，调用另存为对话框的示例代码。它的格式如下：Dim Filename As StringFilename=Appl ication.GetSaveAsFilename(FileFilter:=文件名称, *.格式)一、代码如下Dim fileSaveN amefileSaveName=Application.GetSaveAsFilename(fileFilter:=Text Files (*.txt), *.txt)If fileSaveName False ThenMsgBox Save as file SaveNameEnd If二、指定对话框的标题Dim fname As StringWorkbooks.Open filename:=20 99成绩.xlsActiveSheet.Range(A1).Value=保存fname=Application.GetSaveAsFilen ame( _InitialFileName:=成绩保存.xls, _Title:=这里是标题文字)If fname False The nActiveWorkbook.SaveAs filename:=fnameEnd If知识拓展：Application.GetSaveAs Filename 方法：简单来说就是显示另存为对话框，方便用户输入文件名进行保存语法：expression.GetSaveAsFilenam e(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)express ion 必需。该表达式返回Application类型对象InitialFilename Variant类型，可选。指定初始的文件名FileF ilter Variant类型，可选。一个指定文件筛选条件的字符串，格式如：文本文件, *.txtFilterIndex Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到 FileFilter 指定的筛选条件数目之间Title Variant 类 型，可选。指定对话框标题ButtonText Variant 类型，可选。仅用于 Macintosh使用的时候请注意如下几项：1.如果省略I nitialFilename参数，Microsoft Excel 将活动工作簿的名称作为初始文件名2.如果省略FileFilter参数，则默 认参数值为“所有文件 (*.*),*.*”3.如果省略FilterIndex参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件4.如果 省略Title参数，则使用默认标题。 在线ERP / 文章经过精心编写发布，转载请留名，谢谢！