ブックを上書き保存する

今回はブックの上書き保存についてメモしておきます。

初めてブックを保存するときはSaveAsメソッドを使って保存しましたが、上書き保存の場合はWorkbook.Saveメソッドを使います。
ここでは「C:\excelmemo」直下に「Sample6_24.xlsx」というファイルが格納されています。

実行プログラム

Sub Sample6_24_1()

    Dim objWB  As Workbook  ' Workbookオブジェクト

    Set objWB = Workbooks.Open("C:\excelmemo\Sample6_24.xlsx")  ' ブックオープン

    '------------
    ' メイン処理
    '------------

    objWB.Save                                                  ' 上書き保存

End Sub

Sub Sample6_24_1()

Dim objWB As Workbook ' Workbookオブジェクト

Set objWB = Workbooks.Open("C:\excelmemo\Sample6_24.xlsx") ' ブックオープン

'------------

' メイン処理

'------------

objWB.Save ' 上書き保存

End Sub