エクセルVBAで名前を付けて保存する方法

エクセル

2024.03.04

あなたはエクセルで名前を付けて保存するのが面倒だと思ったことはありませんか？

いちいちマウスで「ファイル　→名前を付けて保存」とクリックするのは手間ですよね。

エクセルのマクロを使えば、ボタン一つで名前を付けて保存できます。

今回は「エクセルVBAで名前を付けて保存する方法」を紹介します。

エクセルVBAで名前を付けて保存する方法
まとめ

エクセルVBAで名前を付けて保存する方法

エクセルVBAで名前を付けて保存する方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

ファイル保存の画面を開いて保存する、という意味です。

赤枠部のコードです。

    Dim fileName As String

    ' ファイル保存ダイアログを表示
    fileName = Application.GetSaveAsFilename(FileFilter:="Excel ブック (*.xlsm), *.xlsm", Title:="保存先を指定してください")

    ' キャンセルボタンが押された場合は何もせずに終了
    If fileName = "False" Then
        Exit Sub
    End If

    ' ファイルを保存
    ThisWorkbook.SaveAs fileName

    MsgBox "ファイルが保存されました。", vbInformation

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた　→ボタンをクリック

ボタンができました。

ボタンをクリックします。