Listar Archivos Excel VBA Macros:

Listar Archivos:

La siguiente macro lista los archivos de una carpeta (parámetro)

Sub Recuperar_lista_principal()

Dim s_TuRuta
s_TuRuta = "C:\Users\Jesus\Desktop\PaginasFacebbokMyExcelTools\"

Call Mostrar_Archivos(s_TuRuta)

End Sub

'______________________________

Sub Mostrar_Archivos(s_ruta)

Dim fso, carpeta As Object, o_archivo As Object
Dim o_subcarpeta As Object, i_avanza As Integer
i_avanza = 0

Set fso = CreateObject("Scripting.FileSystemObject")
If s_ruta = "" Then
Exit Sub
ElseIf Right(s_ruta, 1) <> "\" Then
s_ruta = s_ruta & "\"
End If

On Error GoTo Salir

Set carpeta = fso.GetFolder(s_ruta)

For Each o_archivo In carpeta.Files
i_avanza = i_avanza + 1
Range("A1").Offset(i_avanza, 0).Value = s_ruta & o_archivo.Name

Next

For Each o_subcarpeta In carpeta.SubFolders
Mostrar_Archivos (o_subcarpeta)
Next

Exit Sub

Salir:
MsgBox "No se ha encontrado la ruta", vbInformation, "Listado de archivos"

End Sub