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
コメント