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 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...

Excel – Cálculo Automático ou Manual via VBA

Para alternar entre cálculo automático ou manual via VBA, basta usar os seguintes comandos: Para automático: Application.Calculation  = xlCalculationAutomatic Para manual: Leia mais...

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 – 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...