/ / Loop door boeken en sheets in Excel VBA

Doorloop boeken en sheets in Excel VBA

Hieronder zullen we een programma bekijken in Excel VBA dat loopt door alle open werkmappen en werkbladenen geeft alle namen weer.

Situatie:

Doorloop het voorbeeld van boeken en sheets

Voeg de volgende coderegels toe aan de opdrachtknop:

1. Eerst verklaren we twee objecten en één variabele. Een object van het type Werkboek dat we boek noemen, een object van het type Werkblad dat we een blad noemen en een variabele van het type String die we tekst noemen.

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

2. We willen alle openstaande werkmappen doorlopen. Voeg hiervoor de volgende coderegel toe:

For Each book In Workbooks

3. We schrijven de tekst "Werkboek:", de naam van de werkmap en de tekst "Werkbladen:" "naar de variabele tekst.

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

Opmerking: u kunt de operator & gebruiken om elementen samen te voegen (samenvoegen). Om een ​​nieuwe regel te starten, kunt u vbNewLine gebruiken.

4. Voeg de volgende coderegel toe om alle werkbladen van een werkmap door te lussen:

For Each sheet In book.Worksheets

5. We schrijven de namen van de werkbladen van een werkmap naar de variabele tekst.

text = text & sheet.Name & vbNewLine

6. Sluit de tweede lus.

Next sheet

7. Voeg een witte lijn toe.

text = text & vbNewLine

8. Vergeet niet om de eerste lus te sluiten.

Next book

9. Ten slotte geven we de variabele tekst weer met een MsgBox.

MsgBox text

10. Test het programma. Voordat u op de opdrachtknop klikt, geeft u uw werkbladen enkele beschrijvende namen en opent u een andere lege werkmap.

Resultaat:

Doorloop boeken en sheets in Excel VBA

Lees ook: