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 – Abrir outra sessão do excel via VBA

Vamos abrir uma nova sessão do Excel para abrir uma planilha copiar uma célula e fechar. Segue um exemplo de Leia mais...

Excel – Menu do Excel 2003 no Excel 2007

Se ainda não se acostumou com a mudança do layout do Excel rode o código abaixo que  adicionará o menu 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...