【VBA】開いている全ブックを完全一致で配列に格納する方法

日々の業務で大量のExcelファイルを扱っていると、特定の条件に合致するブックだけを集める作業が発生します。この記事では、開いている全ブックを完全一致で配列に格納するVBAコードを紹介し、効率的な業務遂行をお手伝いします。

サンプルコード

VBA

Option Explicit
Sub GetOpenBooks()
    Dim wb As Workbook, arrBooks() As Variant
    ReDim arrBooks(1 To Application.Workbooks.Count)
    i = 1
    For Each wb In Application.Workbooks
        If wb.Name Like "完全一致の文字列" Then ' 完全一致で検索したい文字列を指定
            arrBooks(i) = wb.Name
            i = i + 1
        End If
    Next wb
    ReDim Preserve arrBooks(1 To i - 1)
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

完全一致で検索したい文字列が正しく設定されているか確認してください。