【Excel VBA】【マクロ】【Tips】ブックをループして不要なブックを閉じる

こんにちは！Lenocoです。本日も見てくださりありがとうございます。

今回はブックのループについてです！！！

ブックのループ

以下のコードでは、
開いているブックを一つずつ見ていき、ブック名が「Book」から始まる場合、そのブックを保存せず閉じています。

コード

Sub CloseWorkbook()
    Dim wb As Workbook
    For Each wb In Workbooks
        If wb.Name Like "Book*" Then
            wb.Close False
        End If
    Next
End Sub

このツールの使いどころ

こちらのマクロ、どんな時に使うかというと、
新規ブックを作成して保存するような動きをするマクロを作成しているとき、
デバッグで何度も何度もその処理を繰り返すかと思います。
デバッグをしているうちに、気づくと「Book1」「Book2」・・・「Book30」のようにどんどんブックが増えてしまいます。
気づいたら都度都度消すのですが、多ければ多いほど手で消すのは大変ですよね。
そんなときに先ほどのマクロを使います！
「Book」から始まるブックを全て保存せず閉じてくれます。
アドインにしてクイックアクセスツールバーもしくはリボンに入れておくと便利ですね。

Lenoco