【VBA】Excelマクロのワークブック(Excelファイル)を上書き保存する【Excel】

Excel VBAマクロのワークブックを上書き保存する方法をご紹介します。

Excelマクロのワークブック(Excelファイル)を上書き保存する

ブックを上書きするには、下記の記述を使用します。

Workbook.Save

ちなみに、ブックに名前を付けて保存したい場合、

Workbook.SaveAs

を使用します。

ソースコード

Dim wkBookName As String

'ブック名取得
wkBookName= ThisWorkbook.Name

'ブックを編集
Workbooks(wkBookName).Worksheets("Sheet1").Range("A1").Value = "文字を挿入"

'上書き保存
Workbooks(wkBookName).Save

上書き保存なので、ブック名やファイルパスは保存前と同様です。

このコードでは、ブック名を取得して上書き保存の処理を行っていますが、マクロを実行しているブックをそのまま上書き保存する場合、下記のコードの方がシンプルです。

Dim wkBook As Workbook

'ブックをセット
Set wkBook = ThisWorkbook

' ブックを編集
wkBook.Worksheets("Sheet1").Range("A1").Value = "文字を挿入"

'上書き保存
wkBook.Save