/ / Loop gjennom bøker og ark i Excel VBA

Loop gjennom bøker og ark i Excel VBA

Nedenfor ser vi på et program i Excel VBA at løkker gjennom alle åpne arbeidsbøker og regneark, og viser alle navnene.

Situasjon:

Gå gjennom bøker og arkeksempel

Legg til følgende kodelinjer på kommandoknappen:

1. Først erklærer vi to objekter og en variabel. Et objekt av typen Arbeidsbok vi kaller bok, ett objekt av typen Arbeidsark vi kaller ark, og en variabel av typen String vi kaller tekst.

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

2. Vi ønsker å gå gjennom alle åpne arbeidsbøker. For å oppnå dette legger du til følgende kodelinje:

For Each book In Workbooks

3. Vi skriver teksten "Arbeidsbok:", navnet på arbeidsboken og teksten "Regneark:" "til variabelteksten.

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

Merk: Du kan bruke & operatøren til å sammenkoble (delta) elementer. For å starte en ny linje, kan du bruke vbNewLine.

4. For å gå gjennom alle regnearkene til en arbeidsbok, legg til følgende kodelinje:

For Each sheet In book.Worksheets

5. Vi skriver navnene på regnearkene i en arbeidsbok til variabelteksten.

text = text & sheet.Name & vbNewLine

6. Lukk den andre sløyfen.

Next sheet

7. Legg til en hvit linje.

text = text & vbNewLine

8. Ikke glem å lukke den første sløyfen.

Next book

9. Endelig viser vi den variable teksten ved hjelp av en MsgBox.

MsgBox text

10. Test programmet. Før du klikker på kommandoknappen, gi regnearkene noen beskrivende navn og åpne en annen blank arbeidsbok.

Resultat:

Loop gjennom bøker og ark i Excel VBA

Les også: