Vba: so erhalten sie eine liste aller geöffneten arbeitsmappen

Sie können eine For Each- Schleife in VBA verwenden, um eine Liste aller geöffneten Excel-Arbeitsmappen abzurufen.

Hier ist eine gängige Methode, dies in der Praxis zu tun:

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

Dieses spezielle Makro generiert ein Meldungsfeld mit einer Liste aller geöffneten Excel-Arbeitsmappen.

Das folgende Beispiel zeigt, wie dieses Makro in der Praxis verwendet wird.

Beispiel: Mit VBA eine Liste aller geöffneten Arbeitsmappen abrufen

Nehmen wir an, dass die folgenden drei Excel-Arbeitsmappen derzeit geöffnet sind:

• baseball_data.xlsx
• football_data.xlsx
• hockey_data.xlsx

Nehmen wir an, wir möchten VBA verwenden, um die Namen aller dieser geöffneten Arbeitsmappen aufzulisten.

Dazu können wir das folgende Makro erstellen:

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Im Meldungsfeld werden die Namen aller geöffneten Arbeitsmappen angezeigt, wobei jede eindeutige Arbeitsmappe in einer eigenen Zeile aufgeführt ist.

Beachten Sie, dass wir die vbCrLf- Konstante in der For Each- Schleife verwendet haben, um einen Wagenrücklauf einzufügen, der den Cursor in die nächste Zeile bewegt.

Dadurch konnten wir jede geöffnete Arbeitsmappe in einer eigenen Zeile im Meldungsfeld auflisten.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So benennen Sie eine Datei mit VBA um
So listen Sie Dateien in einem Ordner mit VBA auf
So öffnen Sie alle Dateien in einem Ordner mit VBA
So überprüfen Sie mit VBA, ob eine Datei vorhanden ist