VBA: Macro para listar ficheros de una carpeta.

Continuando con una serie de artículos hoy contaré cómo poder listar en una Hoja de cálculo de Excel los diferentes ficheros o archivos contenidos en una carpeta concreta de nuestro equipo.
La siguiente macro, bastante sencilla, emplea el objeto FileSystemObject, que habilita el acceso al sistema de todos los archivos de nuestros PC.
Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, formando nuestra macro de Excel:

Sub ListarFicherosCarpeta()
'www.excelforo.com
Dim Ruta As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Creamos el objeto FileSystemObject que
'proporciona acceso al sistema de archivos de un equipo
Set fso = CreateObject("Scripting.FileSystemObject")
'Indicamos la ruta de donde vamos a obtener
'los ficheros, en este caso D:\BancoFotos
Ruta = "D:\BancoFotos\"
'definimos dos variables que necesitaremos,
'para recuperar el nombre de la carpeta, y los ficheros que haya dentro
Set Carpeta = fso.GetFolder(Ruta)
Set ficheros = Carpeta.Files
'damos un título en negrita para la celda A1
With Range("A1")
    .Value = "Ficheros de la carpeta " & Ruta
    .Font.Bold = True
End With
'escribimos los ficheros, a partir de A2
Range("A2").Select
For Each archivo In ficheros
    'escribimos el nombre del fichero
    ActiveCell = archivo.Name
    'bajamos una fila
    ActiveCell.Offset(1, 0).Select
Next archivo
ActiveCell.EntireColumn.AutoFit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Limpiamos los objetos y variables definidas
Set fso = Nothing
Set Carpeta = Nothing
Set ficheros = Nothing

Application.ScreenUpdating = True
End Sub

En este caso, por simplificar, he decidido añadir la Ruta de la carpeta de manera manual, en mi caso, una carpeta donde guardo imágenes que utilizaré en una entrada posterior.
El funcionamiento de la macro comienza permitiendo el acceso al sistema de directorios y carpetas de nuestro equipo de trabajo, luego, tras definir la Ruta exacta que terminaremos abriendo, empleando el método GetFolder, que devuelve un objeto Folder que corresponde a la carpeta de la ruta especificada.El resto es simple, ya que forzamos un texto en la celda A1, y con un proceso FOR EACH...IN...NEXT pasamos por todos los ficheros contenidos en la carpeta definida en 'Ruta' y nos lo traemos a la Hoja de cálculo a partir de la celda A2.
Finalmente auyoajustamos el ancho de la columna y limpiamos las variables definidas con la instrucción SET.
Podemos ver el resultado en la imagen, para mi caso, un listado de cuatro ficheros: