ブックを上書き保存する【Saveメソッド】【ExcelVBA】

Saveメソッド

ブックを上書き保存するには WorkbookオブジェクトにSaveメソッドを使用します。
保存するブックが新規ブックの場合、”Book1.xlsx”といった名称で保存されます。
※SaveAsメソッドを使用すれば、任意のファイル名を指定できます。

構文
Object.Save

ブックを上書き保存するサンプルコード

'■ブックを指定して上書き保存する
Public Sub Sample()

    ' このマクロを実行しているブックを上書き保存
    ThisWorkbook.Save
    ' アクティブブックを上書き保存
    ActiveWorkbook.Save   
    ' ブック名を指定して上書き保存
    Workbooks("ブック名").Save

End Sub

'■開かれているブック全てを上書き保存する
Public Sub Sample2()

    Dim books As Workbook
    
    '開いているブックをループで一つずつ処理する
    For Each books In Workbooks
        '処理中のブックを上書き保存
        books.Save
    Next books
    
End Sub

注意点

• 同じファイル名が既に存在していると、「置き換えますか？」と警告メッセージが表示されます。
  ※警告を無視して上書き保存をする場合は、Application.DisplayAlertsプロパティを使用してください。

関連記事

• ブックを閉じる際の確認ダイアログを表示させない(無視する)【Application.DisplayAlerts】
• ブック保存する前に処理実行する【Workbook_BeforeSave】
• ワークブックを閉じる【Closeメソッド】