スキルアップ・問題解決なら、モーグにおまかせ！

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

Sub Sample()
    Dim fileSaveName As Variant

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

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

End Sub