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

日々の業務で、複数のExcelファイルを開いて作業をするとき、どのファイルが開かれているかを把握するのが大変な経験はありませんか？この記事では、VBAを使って簡単に開いている全ブックを確認メッセージを表示せずに抽出する方法をお伝えします。これにより、効率的な業務遂行が可能になります。

サンプルコード

VBA

Option Explicit
Sub ExtractAllOpenWorkbooks()
    Dim wb As Workbook, ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 処理対象のシートを指定
    Application.ScreenUpdating = False ' 画面更新を停止
    Application.DisplayAlerts = False ' 確認メッセージを表示しない
    
    Dim i As Integer, lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 ' 最終行の次の行にデータを挿入する
    
    For Each wb In Application.Workbooks
        If Not wb.Name Like ThisWorkbook.Name Then ' このマクロが含まれるワークブック以外のみ処理
            ws.Cells(lastRow, "A").Value = wb.Name ' ワークブック名を挿入
            lastRow = lastRow + 1 ' 次の行に移動
        End If
    Next wb
    
    Application.ScreenUpdating = True ' 画面更新を再開
    Application.DisplayAlerts = True ' 確認メッセージを表示するように設定に戻す
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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