【VBA】開いている全ブックを高速に削除する方法

手作業で開いている全てのExcelファイルを閉じるのは時間がかかります。この記事では、VBAを使用して開いている全ワークブックを高速に一括削除する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub CloseAllBooks()
    Dim wb As Workbook
    Application.ScreenUpdating = False '画面更新停止
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then wb.Close SaveChanges:=False '開いている全ブックを閉じる(変更無視)
    Next wb
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

ワークブック名や列番号が正しいか確認してください。