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

手作業でのエクセルファイル管理は時間がかかるだけでなく、ミスも起こりやすいです。この記事では、開いているすべてのワークブック名を部分一致で検索し、それを配列に格納するVBAマクロを作成します。

サンプルコード

VBA

Option Explicit
Sub GetPartialMatchWorkbookNames()
    Dim wb As Workbook, wbName() As String, i As Long, j As Long
    ReDim wbName(1 To Application.Workbooks.Count)
    i = 1
    For Each wb In Workbooks
        If InStr(wb.Name, "部分一致する文字列") > 0 Then
            wbName(i) = wb.Name
            i = i + 1
        End If
    Next wb
    ReDim Preserve wbName(1 To i - 1)
    ' 配列を表示（デバッグ用）
    For j = LBound(wbName) To UBound(wbName)
        Debug.Print wbName(j)
    Next j
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

部分一致する文字列やワークブック名が正しいか確認してください。