Abaixo, veremos um programa em Excel VBA que percorre todas as pastas de trabalho e planilhas abertase exibe todos os nomes.
Situação:
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 que chamamos de book, um objeto do tipo Worksheet que chamamos de folha e uma variável do tipo String que chamamos de texto.
Dim book As Workbook, sheet As Worksheet, text As String
2. Queremos percorrer todas as pastas de trabalho abertas. Para fazer isso, adicione a seguinte linha de código:
Para cada livro nas pastas de trabalho
3. Escrevemos o texto "Pasta de trabalho:", o nome da pasta de trabalho e o texto "Planilhas:" "no 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 vbNewLine.
4. Para percorrer todas as planilhas de uma pasta de trabalho, adicione a seguinte linha de código:
Para cada folha do livro.
5. Escrevemos os nomes das planilhas de uma pasta de trabalho no texto variável.
text = text & sheet.Name & vbNewLine
6. Feche o segundo loop.
Próxima folha
7. Adicione uma linha branca.
text = text & vbNewLine
8. Não se esqueça de fechar o primeiro loop.
Próximo livro
9. Finalmente, exibimos o texto da variável usando um MsgBox.
Texto MsgBox
10. Teste o programa. Antes de clicar no botão de comando, dê às suas planilhas alguns nomes descritivos e abra uma pasta de trabalho em branco com três planilhas.
Resultado:
