ThisWorkbook以外のブックをすべて閉じる

ThisWorkBook以外のブックをすべて閉じたい

VBAで他ブックを開いて計算処理をしたり、帳票作成をした場合、
最終的にVBAのコードがあるブック(ThisWorkbook)以外を全てCloseしたいケースが存在します。

’■ThisWorkbook以外のブックを閉じる
Public Sub not_ThisWorkbook_Close()
　  Dim wb As Workbook
　
    '■開いているWorkbookを全て処理し、該当ブックがThisWorkbook以外は
　  For Each wb In Workbooks
　　  If wb.Name <> ThisWorkbook.Name Then
       '■ブック保存せず閉じる(上書き保存しない)場合は以下
　　　  wb.Close SaveChanges:=False
       '■ブック保存して閉じる(上書き保存する　)場合は以下
　　　  wb.Close SaveChanges:=True
　　  End If
  　Next
End Sub

補足

ThisWorkbookかそれ以外のWorkbookかの判断は、
今回はwbのファイル名とThisWorkbookのファイル名を比較しました。
以下のような比較方法でも行えます。Is演算子を理解している方は下記のがシンプルかもしれません。

関連記事