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

Protegido: Excel Avançado – Como desproteger planilha

Para desproteger uma planilha no excel rode o código abaixo: Sub Deproteger() Dim i As Integer, j As Integer, k Leia mais...

Excel e Access – Gravando Dados do Excel no Access via VBA (macro)

Excel e Access – Gravando Dados do Excel no Access via VBA (macro) 1 – Primeiro você deve criar uma Leia mais...