/ / Loop gennem bøger og ark i Excel VBA

Loop gennem bøger og ark i Excel VBA

Nedenfor vil vi se på et program i Excel VBA at løkker gennem alle åbne arbejdsbøger og regneark, og viser alle navne.

Situation:

Loop gennem bøger og arkeksempel

Tilføj følgende kodelinjer til kommandoknappen:

1. Først erklærer vi to objekter og en variabel. Et objekt af typen Arbejdsbog vi kalder bog, et objekt af typen Arbejdsark vi kalder ark og en variabel af typen String vi kalder tekst.

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

2. Vi ønsker at løbe igennem alle åbne arbejdsbøger. For at opnå dette skal du tilføje følgende kode linje:

For Each book In Workbooks

3. Vi skriver teksten "Arbejdsbog:", arbejdsbogenes navn og teksten "Arbejdsark:" "til variabelteksten.

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

Bemærk: Du kan bruge & operatøren til at sammenkoble (tilslutte) elementer. For at starte en ny linje kan du bruge vbNewLine.

4. For at gå gennem alle regnearkene i en projektmappe, skal du tilføje følgende kode linje:

For Each sheet In book.Worksheets

5. Vi skriver navne på regnearkene i en projektmappe til variabelteksten.

text = text & sheet.Name & vbNewLine

6. Luk den anden sløjfe.

Next sheet

7. Tilføj en hvid linje.

text = text & vbNewLine

8. Glem ikke at lukke den første sløjfe.

Next book

9. Endelig viser vi den variable tekst ved hjælp af en MsgBox.

MsgBox text

10. Test programmet. Inden du klikker på kommandoknappen, skal du give dine regneark nogle beskrivende navne og åbne en anden blank arbejdsbog.

Resultat:

Loop gennem bøger og ark i Excel VBA

Læs også: