Listar archivos de una carpeta con Excel

Si alguna vez tuviste la necesidad de listar en una hoja de Excel, los archivos que contiene una carpeta; entonces esta sencilla macro te puede ayudar.

Sigue los siguientes pasos:

1.- Abre Excel
2.-Presiona ALT + F11 para abrir la ventana de Visual Basic
3.-Haz un nuevo módulo (Menú Insertar --> Nuevo módulo)
4.-Copia el siguiente código y pégalo en el módulo

Sub Lector()

    Range("A2").Select

    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    Selection.ClearContents

    Dim d As String

    

    On Error GoTo Escape

    

    Application.FileDialog(msoFileDialogFolderPicker).Show

    d = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFolder(d)

    

    r = 2

    For Each a In f.Files

    If Not Right(a.Name, 4) = ".ini" Then

          Range("A" & r).Value = d & "\" & a.Name

        r = r + 1  

    End If

    Next a

Exit Sub

Escape:

    

    MsgBox "No se seleccionó ninguna carpeta", vbOKOnly, "Lector"

    

End Sub

5.- Presiona F5 y si lo hiciste bien, deberías ver un cuadro de diálogo que te pregunta la ubicación.
     Solo selecciona la carpeta y dá click en abrir.

Pronto subiré a mi canal de Youtube el ejemplo y compartiré el archivo.

Suscríbete a mi canal:

Crear tablas dinámicas (con archivo de ejemplo)

Saludos y gracias!!!

RaduNordenhulk