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ソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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 |
実行結果
上記 Sample_GetSaveAsFilename を実行
「user05」を入力して「保存」ボタンをクリック
