Im Folgenden werden wir ein Programm in Excel VBA suchen, die durch alle geöffneten Arbeitsmappen und Arbeitsblätter Schleifen und zeigt alle Namen.

Situation:

Loop through Books and Sheets Example

Fügen Sie die folgenden Codezeilen in die Befehlsschaltfläche:

  1. Zuerst erklären wir zwei Objekte und eine Variable. Ein Objekt vom Typ Arbeitsmappe wir nennen Buch, ein Objekt vom Typ Arbeitsblatt wir Blatt nennen, und eine Variable vom Typ String wir Text nennen.

Dim book As Workbook, sheet As Worksheet, text As String

  1. Wir wollen durch alle geöffneten Arbeitsmappen Schleife. Um dies zu erreichen, fügen Sie die folgende Codezeile:

For Each book In Workbooks

  1. Wir schreiben den Text „Arbeitsmappe“, den Namen der Arbeitsmappe und den Text „Worksheets:‚‘auf den variablen Text

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

  1. Hinweis: Sie den Operator & verketten können (Join) Elemente eine neue Linie zu starten, können Sie vbNewLine verwenden

    1. Um eine Schleife durch alle Arbeitsblätter einer Arbeitsmappe, fügen Sie die folgende Codezeile:..

For Each sheet In book.Worksheets

5 schreiben. Wir haben die Namen der Arbeitsblätter einer Arbeitsmappe mit dem variablen Text.

text = text & sheet.Name & vbNewLine

  1. Schließen Sie die zweite Schleife.

Next sheet

  1. eine weiße Linie hinzufügen.

text = text & vbNewLine

  1. vergessen Sie nicht die erste Schleife zu schließen.

Next book

  1. Schließlich haben wir den variablen Text unter Verwendung eines MsgBox anzuzeigen.

.

MsgBox text

  1. Testen Sie das Programm, bevor Sie auf die Schaltfläche klicken, geben Sie Ihre Arbeitsblätter einige beschreibende Namen und öffnen Sie eine leere Arbeitsmappe mit drei Arbeitsblätter

Ergebnis:.

Loop through Books and Sheets in Excel VBA