¿Cómo listar archivos de una carpeta en Excel con Macros?

¿Cómo listar archivos de una carpeta en Excel mediante Macros?

En Excel, existen varias formas de listar los archivos de una carpeta. Una forma es hacerlo manualmente, utilizando el Explorador de archivos de Windows. Sin embargo, esta puede ser una tarea tediosa y repetitiva, especialmente si la carpeta contiene muchos archivos.Otra forma de listar los archivos de una carpeta es utilizar una macro. Las macros son secuencias de comandos que se pueden utilizar para automatizar tareas en Excel.En este tutorial, veremos cómo crear una macro para listar los archivos de una carpeta.Para crear la macro, debemos abrir el Editor de Visual Basic para Aplicaciones (VBA). Para ello, siga estos pasos:

En Excel, haga clic en la pestaña Desarrollador.
En el grupo Macros, haga clic en Grabar macro.
En el cuadro de diálogo Grabar macro, escriba un nombre para la macro en el campo Nombre de la macro.
En el campo Asignar a, seleccione Personalizadas.xlsm.
En el campo Comandos rápidos, escriba un atajo de teclado para la macro.
Haga clic en Aceptar.
Ahora que hemos creado la macro, podemos agregar el código que la hará funcionar.

https://www.youtube.com/watch?v=57KzhXgh9vM&t=21s

Código VBA

				
					Sub ListarArchivos()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
'Crear el objeto FileSystem Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Definir la ruta dela carpeta
Ruta_Carpeta = Sheets("inicio").Range("c5").Value
Set objFolder = objFSO.getfolder(Ruta_Carpeta)
'Definir donde vamos a listar los archivos y sus propiedades
Sheets("lista archivos").Select
Columns("A:D").ClearContents
'Escribir el For Each que me permite recorrer cada uno de los archivos dentro de la carpeta
i = 2
    For Each objFile In objFolder.Files
        Cells(1, 1) = "Nombre Archivos"
        Cells(1, 2) = "Tamaño"
        Cells(1, 3) = "Fecha de Creación"
        Cells(1, 4) = "Fecha de Modificación"
        Cells(i, 1) = objFile.Name
        Cells(i, 2) = objFile.Size
        Cells(i, 3) = objFile.DateCreated
        Cells(i, 4) = objFile.DateLastModified
        i = i + 1
    Next
'Liberar memoria
Set objFolder = Nothing
Set objFSO = Nothing
MsgBox "Se listaron todos los archivos de la carpeta seleccionada", vbInformation, "Macro Listar Archivos"
End Sub

Cómo ejecutar la MACRO:

Una vez que hayamos agregado el código a la macro, podemos ejecutarla. Para ello, siga estos pasos:

En el Editor de Visual Basic para Aplicaciones, haga clic en el botón Ejecutar.
En el cuadro de diálogo Ejecutar macro, seleccione la macro que desea ejecutar.
Haga clic en Aceptar.
La macro listará los archivos de la carpeta especificada en la columna A de la hoja de trabajo especificada.

Uso de la MACRO

Esta macro se puede utilizar para una variedad de propósitos, como:

Listar todos los archivos de una carpeta para realizar un seguimiento de ellos.
Generar un informe de los archivos de una carpeta.
Crear un catálogo de archivos.
Por ejemplo, podemos utilizar esta macro para generar un informe de los archivos de una carpeta de imágenes. El informe podría incluir el nombre del archivo, la fecha de creación y el tamaño del archivo.

Esperamos que te haya servido nuestra ayuda.

Saludos

Ignacio – Fundador de Expertos de Excel