Compartilhe!

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.

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

Compartilhe!

Excel – Listar todos os arquivos de um diretório via VBA

Obrigado pela visita!

Deixe uma resposta Cancelar resposta