Trucos Excel. Archivos de un directorio con una macro

Puede resultarnos útil tener todos los archivos de un directorio en una tabla de Excel. Si estamos documentando un proceso, si nos dan un gran número de ficheros y tenemos que realizar procesos repetitivos sobre ellos, si queremos tener inventariados nuestros programas… Para esto os planteo una macro bien sencilla que recorre un directorio y nos escribe los elementos que encuentra en él. El código Visual Basic para la macro en Excel no puede ser más sencillo:

Sub explora()
    ' Macro para poner los archivos de un directorio en una hoja Excel
    Dim directorio As String, fichero As String, tipo_fichero As String
    Dim i As Long

    directorio = "C:\temp"

    ' Si deseamos especificar el tipo de fichero
    tipo_fichero = "*"

    ' Construimos el patrón de búsqueda
    directorioPattern = directorio & "\*. " & tipo_fichero

    ' Recorre el directorio hasta que no hay elementos
    fichero = Dir(directorioPattern)

    i = 1
    Do While fichero <> ""
        ' Pone en una hoja de Excel los elementos que encuentra
        Cells(i, 1).Value = fichero
        i = i + 1
        fichero = Dir
    Loop
End Sub

El “talento” está en el uso de Dir y en la realización del bucle. Como añadido, tenemos una variable tipo_fichero que nos permite acotar la extensión de los ficheros a listar. Un truco sencillo y que puede ayudarnos a automatizar mucho código. Yo la creé porque un proceso de SQL SERVER me devolvía un gran número de ficheros de texto distintos cada vez y necesitaba automatizar su lectura. Espero que os sea de utilidad. Saludos.