HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > [ファイル名を付けて保存]ダイアログボックスで選択されたファイル名を取得する

即効テクニック

ファイル操作関連のテクニック

[ファイル名を付けて保存]ダイアログボックスで選択されたファイル名を取得する

(Excel 97/2000)
次の使用例は、ファイルに名前を付けて保存するときに表示されるダイアログボックスで、ファイルの種類をテキストファイルに限定して表示します。
ファイル名を選択すると、そのファイル名がメッセージボックスに表示されます。

Sub Sample()
    Dim fileSaveName As Variant

    fileSaveName = Application.GetSaveAsFilename(fileFilter:= _
                   "テキスト ファイル (*.txt), *.txt")

    If fileSaveName <> False Then
        MsgBox "保存するファイル :" & fileSaveName
    End If

End Sub