ブックを閉じる – Excelメモ

今回はブックのクローズについてメモしておきます。

ブックのクローズはWorkbook.Closeメソッドを使います。

変更を保存して閉じる

パラメーターのSaveChangesを”True”にすると保存されます。

実行プログラム

Sub Sample6_26_1()

    Workbooks("Sample6_26.xlsx").Close SaveChanges:=True

End Sub

Sub Sample6_26_1()

Workbooks("Sample6_26.xlsx").Close SaveChanges:=True

End Sub

変更を保存せず閉じる

パラメーターのSaveChangesを”False”にすると変更があっても保存されずに閉じます。

実行プログラム

Sub Sample6_26_2()

    Workbooks("Sample6_26.xlsx").Close SaveChanges:=False

End Sub

Sub Sample6_26_2()

Workbooks("Sample6_26.xlsx").Close SaveChanges:=False

End Sub

別名で保存して閉じる

実行プログラム

Sub Sample6_26_3()

    Dim strPath  As String

    Cells(1, 1).Value = "変更"
    
    ' 新ブックのパス
    strPath = Workbooks("Sample6_26.xlsx").Path & "\Sample6_26_NEW.xlsx"

    Workbooks("Sample6_26.xlsx").Close SaveChanges:=True, Filename:=strPath

End Sub

Sub Sample6_26_3()

Dim strPath As String

Cells(1, 1).Value = "変更"

' 新ブックのパス

strPath = Workbooks("Sample6_26.xlsx").Path & "\Sample6_26_NEW.xlsx"

Workbooks("Sample6_26.xlsx").Close SaveChanges:=True, Filename:=strPath

End Sub

実行結果