Como Listar Arquivos de uma Pasta no Excel 2010

Para listar arquivos de uma pasta no Excel 2010, siga estes passos:

1. Abra o Excel 2010 e crie uma nova planilha em branco.

2. Clique na guia "Desenvolvedor" na Faixa de Opções. Se você não vê essa guia, clique em "Arquivo" > "Opções" > "Personalizar Faixa de Opções" e marque a caixa de seleção "Desenvolvedor", depois clique em "OK".

3. Clique em "Visual Basic" na Faixa de Opções para abrir o Editor do Visual Basic.

4. Na janela do Editor do Visual Basic, clique em "Inserir" na barra de menus e selecione "Módulo".

5. Na janela de código do módulo, cole o seguinte código:

Sub ListarArquivosNaPasta()Dim Pasta As StringDim Arquivo As StringDim Linha As Integer

Pasta = "C:\Caminho\para\a\pasta\" ' Substitua pelo caminho da pasta que deseja listar Arquivo = Dir(Pasta & "*.*") Linha = 1 Do While Arquivo <> ""Cells(Linha, 1) = ArquivoArquivo = DirLinha = Linha + 1 Loop 

End Sub

6. Substitua "C:\Caminho\para\a\pasta\" pelo caminho da pasta que você deseja listar na linha 6. Certifique-se de incluir a barra invertida no final da linha.

7. Clique em "Salvar" para salvar a planilha.

8. Pressione a tecla F5 para executar o código. Isso adicionará os nomes dos arquivos na pasta especificada na sua planilha em branco.

Observação: Se você quiser filtrar apenas certos tipos de arquivos, por exemplo, apenas arquivos de texto, pode usar o seguinte código em vez do código acima:

Sub ListarArquivosDeTextoNaPasta()Dim Pasta As StringDim Arquivo As StringDim Linha As Integer

Pasta = "C:\Caminho\para\a\pasta\" ' Substitua pelo caminho da pasta que deseja listar Arquivo = Dir(Pasta & "*.txt") Linha = 1 Do While Arquivo <> ""Cells(Linha, 1) = ArquivoArquivo = DirLinha = Linha + 1 Loop 

End Sub

Nesse exemplo, apenas arquivos de texto serão listados. Substitua "*.txt" pelo tipo de arquivo que deseja listar.