【VBA】開いている全ブックを確認メッセージを出さずに配列に格納する方法

日々の業務で大量のExcelファイルを扱っていると、一つ一つ開いて作業するのは効率が悪いですよね。そこで、開いているすべてのブックを確認メッセージを表示せずに一括処理できるVBAマクロを作成しました。

サンプルコード

VBA

Option Explicit
Sub GetOpenWorkbooksToArray()
    Dim wbArray() As Workbook
    ReDim wbArray(1 To Application.Workbooks.Count)
    Dim i As Integer
    For i = 1 To Application.Workbooks.Count
        Set wbArray(i) = Workbooks(i)
    Next i
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

シート名や列番号が正しいか確認してください。