「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

2016/03/01

GetSaveAsFilename メソッド

「名前を付けて保存」ダイアログボックスを表示します。ただし、ファイル名を取得するだけで、実際には保存されません。

【書式】

object.GetSaveAsFilename ( initialfilename, filefilter, filterindex, title, buttontext )

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
initialfilename ・・・既定値として表示するファイル名を指定します。省略すると、作業中のブックの名前が使用されます。
filefilter ・・・ファイルの種類を指定する文字列を指定します。省略するとすべてのファイルになります。
指定方法は、ダイアログボックスに表示するファイルフィルタ文字列とファイルの種類を表すワイルドカードのペアをカンマ（,）で区切って指定します。複数指定したい場合もカンマ（,）で区切ります。１つのファイルフィルタ文字列に対して複数のワイルドカードを指定したい場合は、セミコロン（;）で区切ります。
（例 1）テキストファイル（*.txt）を指定する例
　　”テキストファイル,*txt”
（例 2）Excelファイルを指定する例
　　”Excel ファイル,*.xlsx;*.xlsm”
（例 3）すべてのファイルを指定する例（省略した場合と同じ）
　　”すべてのファイル,*.*”
filterindex ・・・引数 filefilter で指定したファイルフィルタ文字列の中で、何番目のファイルフィルタ文字列を既定値とするかを指定します。省略すると、最初のファイルフィルタ文字列が既定値となります。
title ・・・ダイアログボックスに表示されるタイトルを指定します。省略すると「名前を付けて保存」になります。
buttontext ・・・ Macintosh でのみ指定できます。

GetSaveAsFilename メソッドの戻り値について
このメソッドは、ファイル名が指定された場合とキャンセルされた場合で、戻り値のデータ型が異なります。ファイルが指定された場合は、ファイルのパスと名前が返されます。キャンセルされると False（boolean）が返されます。

GetSaveAsFilename メソッド使用例

サンプルVBAソース

　
Sub Sample_GetSaveAsFilename()

    Dim w As Workbook
    Dim Sname As Variant
    
    Set w = ThisWorkbook
    
    Sname = Application.GetSaveAsFilename( _
            filefilter:="テキストファイル,*.txt", _
            Title:="ファイル保存")
    
    If VarType(Sname) = vbBoolean Then
        MsgBox "選択されていません"
        Exit Sub
    Else
        MsgBox Sname
    End If
    
End Sub