【Excel VBA】GetSaveAsFilenameの使い方｜保存ダイアログを表示する方法

Excel VBAでファイルを保存する処理を作る際、ユーザーに保存場所を選択させたい場面は非常に多くあります。
例えば次のようなケースです。

• レポートを自動作成して保存する
• CSVやPDFをエクスポートする
• ユーザーに任意の場所へ保存してもらう

このような場合、VBAでよく使われるのが Application.GetSaveAsFilename メソッドです。

このメソッドを使うと、Excelの「名前を付けて保存」ダイアログを表示し、ユーザーに保存先やファイル名を指定してもらうことができます。

ただし実務では、

• SaveAsとの違いが分かりにくい
• 保存処理が実行されない理由が分からない
• キャンセル時の処理が分からない

といったポイントでつまずくケースも多くあります。

この記事では、Application.GetSaveAsFilename メソッドの基本的な使い方から実務での活用方法までを分かりやすく解説します。

✅ Application.GetSaveAsFilenameメソッドとは

Application.GetSaveAsFilename メソッドは、保存ダイアログを表示してファイル名を取得するためのメソッドです。

ここで重要なのは、このメソッドは 保存処理そのものは行わないという点です。

つまり、

• 保存ダイアログを表示する
• ユーザーが指定したファイル名を取得する

という役割だけを持っています。

そのため実務では、次のような誤解がよくあります。

• このメソッドだけで保存されると思っている
• SaveAsとの違いが分からない
• 取得したファイル名を使って保存処理を書く必要があることを知らない

このポイントを理解しておかないと、「コードが動いているのに保存されない」という状況になります。

まずは基本的な構文を確認しておきましょう。

・Application.GetSaveAsFilenameの基本構文

Application.GetSaveAsFilename の基本構文は次の通りです。

filePath = Application.GetSaveAsFilename( _
                InitialFileName:="sample.xlsx", _
                FileFilter:="Excel Files (*.xlsx), *.xlsx")

主な引数は次の通りです。

戻り値は

• ファイルパス（文字列）
• キャンセルの場合 False

になります。

✅ GetSaveAsFilenameの基本的な使用例

実務で最もシンプルな使い方は、保存ダイアログを表示してファイル名を取得する方法です。

ここでは基本的なサンプルコードを紹介します。

・例：保存ダイアログを表示してファイル名を取得する

Sub GetSaveFileNameSample()

    Dim saveFilePath As Variant
    
    ' 保存ダイアログを表示
    saveFilePath = Application.GetSaveAsFilename( _
                        InitialFileName:="report.xlsx", _
                        FileFilter:="Excel Files (*.xlsx), *.xlsx")
    
    ' キャンセルされた場合
    If saveFilePath = False Then
        MsgBox "保存がキャンセルされました。"
        Exit Sub
    End If
    
    MsgBox "保存先：" & saveFilePath

End Sub

なぜこの書き方にするのか

このコードでは、戻り値を Variant型で受け取っています。

理由は、GetSaveAsFilename は

• 文字列（保存パス）
• False（キャンセル）

の 2種類の戻り値を返すためです。

String型で受け取るとエラーになる可能性があるため、Variant型で受け取る設計が安全です。

✅ ファイル保存処理と組み合わせる方法

GetSaveAsFilename はファイル名を取得するだけなので、実際に保存する場合は SaveAs メソッドと組み合わせて使います。

ここが実務で最も重要なポイントです。

・例：保存ダイアログ＋SaveAsで保存する

Sub SaveWorkbookWithDialog()

    Dim saveFilePath As Variant
    
    saveFilePath = Application.GetSaveAsFilename( _
                        InitialFileName:="report.xlsx", _
                        FileFilter:="Excel Files (*.xlsx), *.xlsx")
    
    If saveFilePath = False Then Exit Sub
    
    ThisWorkbook.SaveAs Filename:=saveFilePath

End Sub

設計意図

このコードでは

1. 保存場所を選択
2. ファイルパスを取得
3. SaveAsで保存

という流れになっています。

このように 役割を分ける設計にすることで、処理の意味が分かりやすくなります。

✅ CSVやPDF保存ダイアログを作る方法

実務では、Excel以外の形式で保存することもよくあります。

その場合は FileFilter を変更します。

・例：CSV保存ダイアログ

saveFilePath = Application.GetSaveAsFilename( _
                    InitialFileName:="data.csv", _
                    FileFilter:="CSV Files (*.csv), *.csv")

・例：PDF保存ダイアログ

saveFilePath = Application.GetSaveAsFilename( _
                    InitialFileName:="report.pdf", _
                    FileFilter:="PDF Files (*.pdf), *.pdf")

FileFilter を変更することで、保存形式を制御することができます。

CSVやPDFなどの形式で保存する場合でも、
保存場所の設計やファイル管理の方法を考えておくことが重要です。

保存ダイアログを使った「名前を付けて保存」の実装方法や、
元ファイルと同じフォルダに保存する実務的な方法については、次の記事で詳しく解説しています。

→【VBA】ダイアログで名前を付けて保存・同じフォルダに保存する方法

✅ 実務でよくあるエラーと注意点

GetSaveAsFilename を使うときには、いくつか注意点があります。

・キャンセル処理を必ず入れる

ユーザーがキャンセルした場合、戻り値は Falseになります。

これを処理しないとエラーになります。

If saveFilePath = False Then Exit Sub

この処理は必ず入れるようにしましょう。

・保存処理は別に書く必要がある

GetSaveAsFilename は

保存ダイアログを表示するだけ

です。

保存する場合は必ず

• SaveAs
• ExportAsFixedFormat

などを組み合わせます。

✅ 実務でよく使う設計パターン

業務自動化では、次のような流れで使うことが多いです。

1. VBAでレポート作成
2. 保存ダイアログ表示
3. ユーザーが保存先を指定
4. ファイル保存

このように ユーザー操作を残した自動化を作ることができます。

完全自動保存よりも、保存先だけユーザーに選ばせる設計の方が実務では安全な場合も多いです。

✅ VBA自動化で保存処理を設計するときの考え方

VBAで保存処理を作るときは、次の3つを分けて考えると設計が分かりやすくなります。

• 保存場所を決める
• ファイル名を決める
• 保存処理を実行する

GetSaveAsFilename は

「保存場所とファイル名を決める」

部分を担当します。

このように役割を分けることで、コードの保守性も高くなります。

✅ まとめ：GetSaveAsFilenameは保存処理の入口になるメソッド

Application.GetSaveAsFilename は、VBAで保存処理を作るときに非常に便利なメソッドです。

ただし、このメソッドは 保存処理そのものではなく、保存ダイアログを表示する役割を持っています。

この記事のポイントをまとめます。

• GetSaveAsFilename は保存ダイアログを表示するメソッド
• 実際の保存処理は SaveAs と組み合わせる
• 戻り値は Variant型で受け取る
• キャンセル処理を必ず書く
• CSVやPDF保存にも応用できる

保存処理を正しく設計することで、Excel VBAの自動化はさらに実務で使いやすくなります。
GetSaveAsFilename を活用して、柔軟なファイル保存処理を作ってみてください。