/ / Loop por meio de livros e planilhas no Excel VBA

Fazer um loop por meio de livros e planilhas no Excel VBA

Abaixo, vamos olhar para um programa em Excel VBA naquela percorre todas as planilhas e planilhas abertase exibe todos os nomes.

Situação:

Loop através de livros e folhas de exemplo

Adicione as seguintes linhas de código ao botão de comando:

1. Primeiro, declaramos dois objetos e uma variável. Um objeto do tipo Workbook chamamos book, um objeto do tipo Worksheet que chamamos de sheet, e uma variável do tipo String que chamamos de text.

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

2. Queremos percorrer todas as pastas de trabalho abertas. Para conseguir isso, adicione a seguinte linha de código:

For Each book In Workbooks

3. Nós escrevemos o texto "Workbook:", o nome da pasta de trabalho e o texto "Worksheets:" "para o texto da variável.

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

Nota: você pode usar o operador & para concatenar (juntar) elementos. Para iniciar uma nova linha, você pode usar o vbNewLine.

4. Para percorrer todas as planilhas de uma pasta de trabalho, adicione a seguinte linha de código:

For Each sheet In book.Worksheets

5. Escrevemos os nomes das planilhas de uma pasta de trabalho para o texto da variável.

text = text & sheet.Name & vbNewLine

6. Feche o segundo loop.

Next sheet

7. Adicione uma linha branca.

text = text & vbNewLine

8. Não se esqueça de fechar o primeiro loop.

Next book

9. Finalmente, exibimos o texto da variável usando uma MsgBox.

MsgBox text

10. Teste o programa. Antes de clicar no botão de comando, forneça a suas planilhas alguns nomes descritivos e abra outra pasta de trabalho em branco.

Resultado:

Fazer um loop por meio de livros e planilhas no Excel VBA

Leia também: