Você está aqui: Excel VBA ::: Dicas & Truques ::: Pastas (Workbooks) |
Como listar todas as pastas do Excel abertas na seção atual usando Excel VBA - Visual Basic for Applications para iniciantesQuantidade de visualizações: 443 vezes |
|
Nesta dica mostrarei como podemos usar a coleção Application.Workbooks para listar todas as pastas abertas na seção atual do Excel. Lembre-se de que um Workbook representa uma pasta de trabalho e que Application representa a instância atual do Excel. Veja como usamos um laço For Each para listar cada uma das pastas e exibir o seu nome nas células da planilha ativa. Aqui o nome da minha planilha é "Planilha1". Tenha a certeza de ajustar para o nome da sua planilha antes de rodar o exemplo. Veja o código VBA completo: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
' Procedimento usado para listar todas as pastas (Workbook) abertas
' na seção atual do Excel
Sub ListarTodasPastas()
' variáveis usadas na resolução do problema
Dim pasta As Workbook
Dim nomePasta As String
Dim contador As Integer
' vamos inicializar o contador em 2 para acessarmos
' a segunda linha da planilha atual
contador = 2
' vamos exibir a mensagem informativa
Sheets("Planilha1").Range("A1") = "Nomes das pastas abertas"
' e agora percorremos todas as pastas abertas
For Each pasta In Application.Workbooks
Sheets("Planilha1").Range("A" & contador) = pasta.Name & vbCrLf
' aumentamos o contador
contador = contador + 1
Next
End Sub
Ao executar este código VBA nós teremos um resultado parecido com: Nomes das pastas abertas Pasta1 Pasta3 |
 Link para compartilhar na Internet ou com seus amigos: |
Veja mais Dicas e truques de Excel VBA |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
