GetSaveAsFilename保存文件例子

 　　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 <> 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參數，則使用默認標題。