Excel VBAでブックを別ファイルで名前を付けて保存をする方法！

そんな時に困ることは、

ですね。

VBAには保存のためのメソッドが3つあり、用途がはっきり分かれています。

この違いを知らないまま使うと、「元のブックが上書きされてしまった」「マクロが動かなくなった」という事故につながります。

今回はそんなお悩みを解決する、

についてまとめます！

完成イメージ

マクロを実行すると、開いているブックの名前が新しいファイル名に変わります。

上の画像は、sample_VBA保存元.xlsm を SaveAs で 2026年売上_別名保存.xlsm として保存した直後の状態です。

タイトルバーが新しいファイル名になっているのが分かりますね。

これが「名前を付けて保存」の動きです。

まずは元のブックを用意する

今回は、こちらの売上データを使います。

・ファイル: sample_VBA保存元.xlsm（マクロ有効ブック）
・シート: 売上データ（A1:D11）
・合計: 2,519,900円

> マクロ有効ブック（.xlsm）を使うのがポイントです。拡張子の違いがトラブルの原因になるため、後ほど詳しく解説します。

Save・SaveAs・SaveCopyAsの違い

VBAの保存メソッドは3つ。この違いを押さえるのが一番大事です。

「元のブックを残したいかどうか」で選びます。

STEP1. SaveAsで名前を付けて保存する

基本の形です。

Sub 名前を付けて保存()
    Dim newPath As String
    newPath = ThisWorkbook.Path & "\2026年売上_別名保存.xlsm"

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=newPath, _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True

    MsgBox "保存しました：" & ThisWorkbook.FullName
End Sub

実行すると、ブックの名前と保存先が変わります。

上のような結果がログとして残るようにしておくと、後から確認できてカンタンですね。

ここが落とし穴！SaveAsは「元のブック」も変わる

ThisWorkbook.SaveAs を実行すると、元のブックは閉じられ、新しいブックが開いた状態になります。

つまり、マクロは新しいブックで続けて動きます。

「元のブックはそのまま残るはず」と思っていると、思わぬところで上書きしてしまうので注意してください。

「元ファイルは絶対に触りたくない」という場合は、次の SaveCopyAs を使います。

STEP2. 元のブックを残してコピーを保存する（SaveCopyAs）

いちばん安全で、実務でよく使う形です。

Sub コピーを保存する()
    Dim copyPath As String
    copyPath = ThisWorkbook.Path & "\営業1課_売上控え.xlsx"

    ThisWorkbook.SaveCopyAs copyPath

    MsgBox "コピーを作成しました。" & vbCrLf & _
           "元のブックはそのままです：" & ThisWorkbook.Name
End Sub

実行しても、ブック名は変わりません。

実行前と実行後でブック名が同じであることが、そのまま証拠になります。

SaveCopyAsの便利なところ

特に③は便利で、次のように書くと日付ごとの控えが自動で残ります。

Sub 日付つきバックアップ()
    Dim p As String
    p = ThisWorkbook.Path & "\backup\" & _
        ThisWorkbook.NameWithoutExtension & "_" & Format(Date, "yyyymmdd") & ".xlsm"

    If Dir(ThisWorkbook.Path & "\backup", vbDirectory) = "" Then
        MkDir ThisWorkbook.Path & "\backup"
    End If

    ThisWorkbook.SaveCopyAs p
    MsgBox "バックアップを作成しました：" & vbCrLf & p
End Sub

MkDir でフォルダの存在を確認してから作っているので、初回でもエラーになりません。

STEP3. 上書き確認を出さない（DisplayAlerts）

同じ名前のファイルがあると、Excelは「上書きしますか？」と確認してきます。

マクロで自動処理しているときにこの確認が出ると、処理が止まってしまいます。

Sub 確認なしで保存()
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\上書き保存テスト.xlsm", _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
End Sub

エラーが起きても必ず元に戻すには、次のように書きます。

Sub 安全に確認を止める()
    On Error GoTo CleanUp

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\控え.xlsm", _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled

CleanUp:
    Application.DisplayAlerts = True
    If Err.Number <> 0 Then
        MsgBox "保存できませんでした：" & Err.Description, vbExclamation
    End If
End Sub

STEP4. 保存先をダイアログで選ばせる（GetSaveAsFilename）

「保存先は人によって変えたい」という場合は、名前を付けて保存のダイアログを表示できます。

Sub 保存先を選んで保存()
    Dim f As Variant

    f = Application.GetSaveAsFilename( _
            InitialFileName:="売上_" & Format(Date, "yyyymmdd"), _
            FileFilter:="Excel ブック (*.xlsx), *.xlsx, " & _
                        "マクロ有効ブック (*.xlsm), *.xlsm")

    If f = False Then Exit Sub

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs f
    Application.DisplayAlerts = True
End Sub

キャンセルされたときは False が返るので、If f = False Then Exit Sub で処理を止めます。

ここを忘れると、キャンセルしたのに保存処理へ進んでエラーになります。

STEP5. ファイル形式（拡張子）を指定する

SaveAs は拡張子から形式を判断しますが、あいまいなときは FileFormat で明示するのが安全です。

注意！マクロ有効ブックを .xlsx で保存するとマクロが消える

いちばん多い事故です。

' × これは危険：マクロが失われる
ThisWorkbook.SaveAs "C:\temp\売上.xlsx"

' ○ マクロを残すなら .xlsm にする
ThisWorkbook.SaveAs "C:\temp\売上.xlsm", xlOpenXMLWorkbookMacroEnabled

マクロ有効ブック（.xlsm）を .xlsx で保存すると、VBプロジェクト（マクロ）は保存されません。

DisplayAlerts = False にしていると警告も出ないため、気づかないままマクロが消えます。

> 保存したファイルで「マクロが動かない」となったら、まず拡張子を確認してください。

トラブルシュート

実際にやってみて出たエラーをまとめました。

よくある間違い

エク短流：VBAでフォルダの中身を一覧化する

保存したファイルが増えてくると、「どれが最新か」「どのファイルにマクロがあるか」を確認するのも手間になります。

そんなときは、保存先フォルダの中身をVBAで一覧化してしまいましょう。

Sub 保存先のファイル一覧を作る()
    Dim fso As Object, fld As Object, f As Object, i As Long

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(ThisWorkbook.Path)

    With ActiveSheet
        .Range("A1:E1").Value = ("ファイル名", "更新日時", "サイズ(KB)", "種類", "マクロ")
        i = 2
        For Each f In fld.Files
            If f.Name Like "*.xls*" And Left(f.Name, 2) <> "~$" Then
                .Cells(i, 1).Value = f.Name
                .Cells(i, 2).Value = f.DateLastModified
                .Cells(i, 3).Value = Round(f.Size / 1024, 1)
                .Cells(i, 4).Value = "." & fso.GetExtensionName(f.Name)
                .Cells(i, 5).Value = IIf(fso.GetExtensionName(f.Name) = "xlsm", "あり", "なし")
                i = i + 1
            End If
        Next f
        .Range("B2:B" & i).NumberFormat = "yyyy/m/d hh:mm"
        .Columns("A:E").AutoFit
    End With

    MsgBox (i - 2) & "件のファイルを一覧にしました"
End Sub

実行すると、フォルダの中身が一覧になってシートに書き出されます。

どのファイルがどうやってできたか

実際に保存先へ書き出されたファイルです。

手作業とVBAの比較

保存のマクロと組み合わせれば、バックアップを作って一覧に記録するところまで自動化できます。

タカヒロ

「別名保存」と「コピー保存」は、名前が似ているのに動きが正反対です。元のファイルを残したいなら SaveCopyAs、と覚えてしまうのが早いですよ。

さいごに

今回は、Excel VBAでブックを別ファイルに名前を付けて保存する方法をまとめました。

保存のメソッドは、「元のブックをどうしたいか」で選べば迷いません。

バックアップを自動で取れるようになると、日々の集計作業がぐっと安心して運用できますね。

「元のファイルは残したい」というときは、この手順をぜひ試してみてください。

最後までお読みいただきありがとうございました。