Contenido de un directorio de c:\ en hoja de cálculo

Te anexo la macro que hace lo que necesitas

Nota: la diagonal en las carpetas es esta \

Por ejemplo, tienes que poner en A1 así:

c:\directorio1\directorio11

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: archivos_de_directorio
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub archivos_de_directorio()
'Por.DAM
ChDir (Range("A1"))
i = 2
Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).ClearContents
archi = Dir("*.*")
    Do While archi <> ""
        Range("B" & i) = archi
        i = i + 1
        archi = Dir()
    Loop
End Sub

Saludos.DAM
Si es lo que necesitas.