Passa in rassegna libri e fogli in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello scorre attraverso tutte le cartelle di lavoro e i fogli di lavoro apertie visualizza tutti i nomi.

Situazione:

Passa attraverso l'esempio di libri e fogli

Aggiungere le seguenti righe di codice al pulsante di comando:

1. In primo luogo, dichiariamo due oggetti e una variabile. Un oggetto di tipo Cartella di lavoro che chiamiamo libro, un oggetto di tipo Foglio di lavoro che chiamiamo foglio e una variabile di tipo Stringa che chiamiamo testo.

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

2. Vogliamo scorrere tutte le cartelle di lavoro aperte. Per ottenere ciò, aggiungi la seguente riga di codice:

For Each book In Workbooks

3. Scriviamo il testo "Workbook:", il nome della cartella di lavoro e il testo "Worksheets:" "nel testo variabile.

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

Nota: puoi usare l'operatore & per concatenare (unire) elementi. Per iniziare una nuova riga, puoi usare vbNewLine.

4. Per scorrere tutti i fogli di lavoro di una cartella di lavoro, aggiungere la seguente riga di codice:

For Each sheet In book.Worksheets

5. Scriviamo i nomi dei fogli di lavoro di una cartella di lavoro sul testo variabile.

text = text & sheet.Name & vbNewLine

6. Chiudi il secondo ciclo.

Next sheet

7. Aggiungi una linea bianca.

text = text & vbNewLine

8. Non dimenticare di chiudere il primo ciclo.

Next book

9. Infine, mostriamo il testo variabile usando un MsgBox.

MsgBox text

10. Testare il programma. Prima di fare clic sul pulsante di comando, assegnare ai propri fogli di lavoro dei nomi descrittivi e aprire un'altra cartella di lavoro vuota.

Risultato:

Passa in rassegna libri e fogli in VBA di Excel