Como capturar nombres de archivos de excel de una carpeta especifica

Esta es la solución. Ejecuta esta macro y primero te aparecerá un browser para elegir la carpeta que tu quieras y después te pintará en excel, a partir de la celda activa, todas las hojas de cálculo que hay en esa carpeta que has elegido.

Sub lista_archivos()
on error resume next
Set navegador = CreateObject("shell.application")
directorio = navegador.browseforfolder(0, Selecciona una carpeta , 0, ActiveWorkbook.Path).items.Item.Path
ChDir directorio
archi = Dir("*.xl*")
Do While archi <> ""
ActiveCell.Value = archi
ActiveCell.Offset(1, 0).Select
archi = Dir()
Loop
End Sub

Recuerda finalizar y puntuar

ok gracias lo probarè

amigo tengo un problema solo me registra datos que están en el escritorio y no de las unidad D: y E:

Estoy trabajando con win y office 2010

Gracias

En la primera ventana que aparece puedes elegir la unidad y carpeta que quieras

Ejecuta de nuevo la macro y lo verás

si lo seleccione mis unidades disco pero no registra nada, pero si selecciono carpetas del escritorio si lo hace...

Gracias