End If
FindFiles = UBound(sFoundFiles, 2) > 0
iArqEncontrados = UBound(sFoundFiles, 2)
On Error GoTo 0
Set oFolder = Nothing
Set oParentFolder = Nothing
Set oFileSystem = Nothing
End Function

41. Listar todos os arquivos de uma pasta

Esta macro é essencial para usuários que desejam listar todos os arquivos
disponíveis em uma pasta dentro de um arquivo do Excel, seja para relatórios
ou para verificações.

Obs1: Os arquivos serão listados na coluna A, iniciando pela primeira linha.
Obs2: Trocar a pasta origem em negrito.

Sub ListarArquivos()
Dim iNumArq As Integer
Dim iContador As Integer
Dim sMyFiles() As String
Dim pastaorigem As String
Dim pastadestino As String
pastaorigem = " C:\Users\UsuarioTeste\Documents "
ArqEncontrado = ProcurarArquivos(pastaorigem, sMyFiles, iNumArq, "*",
True)
If ArqEncontrado Then
For iContador = 1 To iNumArq
Filename = sMyFiles(2, iContador)
ActiveSheet.Range("A" & iContador) = Filename
Next iContador
End If
Columns(1).AutoFit
End Sub