Antes de listar os arquivos certifique que no VBA tenha a referencia "Microsoft Scripting Runtime". Para listar todos os arquivos de diretório via VBA, basta usar o seguinte comando:

Sub Lista()   Dim FSO As New FileSystemObject
  Dim Pasta As Folder
  Dim Arquivo As File
  Caminho = "C:\temp"
  If FSO.FolderExists(Caminho) Then
    Set Pasta = FSO.GetFolder(Caminho)
    For Each Arquivo In Pasta.Files
      Range("A" & n + 1) = Arquivo.Name
      n = n + 1
    Next
  End If End Sub

Caso queria esse arquivo, favor enviar um email para contato@exceleaccess.com solicitando.

Você também vai gostar:

Excel – Agendar a execução de uma macro automática via VBA

Caso queira agendar uma macro para rodar um certo horário basta usar a função Ontime conforme abaixo: Sub Teste() MsgBox Leia mais...

Excel Avançado – Macro que executa ao abrir a planilha

Se você deseja rodar um comando quando abre a sua planilha, coloque o código dentro da macro chamada  "Workbook_Open". Segue Leia mais...

Excel – Mensagem ao usuário para continuar ou não uma macro via VBA

As vezes o usuário aperta o botão sem querer e roda uma macro sem desejar. Para que isso não aconteça Leia mais...

Excel Avançado – Planilha que busca dados de uma página da internet

Vamos aprender como atualizar sua planilha com dados de uma página da internet. Primeriamente você precisa criar uma consulta. Vai Leia mais...