listar los archivos de un directorio en una hoja de excel

hola, chicos !

de la segunda opcion (hasta donde se)... un objeto "FileSearch" pudiera ser ineficiente cuando se combinan "ciertos factores"... (p.e.)
- la pareja de versiones de office/excel con windows (y las actualizaciones instaladas)
- como se pudiera combinar el ".FileName" con el ".FileType" (y se se usan comodines antes/despues del patron de busqueda)
- con ciertas combinaciones'... el metodo ".Execute(...)" -> NO devuelve nada :-\\

otra posibilidad es generar un archivo por los "viejos" comandos D.O.S. y subirlo en excel desde un archivo de texto ;)

saludos,
hector.

Juan M escribio en el mensaje ...
Te paso tres formas,
1) El siguiente procedimiento. Modifica la ruta según tus necesidades.
Revisa la ayuda de la funcion Dir.
Sub ListaDir()
Dim i As Long
Dim MiRuta As String
Dim MiNombre As String
i = 1
MiRuta = "c:\temp\*.xls"
MiNombre = Dir(MiRuta, 0)
Do While MiNombre <> ""
If MiNombre <> "." And MiNombre <> ".." Then
Range("E" & i) = MiNombre
i = i + 1
End If
MiNombre = Dir
Loop
End Sub

2) El metodo propuesto en la siguiente pagina
http://www.erlandsendata.no/english...infolder97

3) Mediante las antiguas Excel 4 macro. descrito en la siguiente pagina
http://www.jkp-ads.com/Articles/ExcelNames08.htm

resumido
Crea un nombre Archivo (menu insertar>Nombre>Definir) con la siguiente formula
=Archivos($C$1)

En C1 pon la ruta con la ruta con la extensión que quieras
=c:\temp\*.xls

en A1 escribe la siguiente formula
=INDICE(Archivo;FILA())

y arrastra hasta que aparezca un error #¡REF! que sera cuando se acaben los archivos.

sam75 escribio en el mensaje ...
Quiero extraer de un directorio todos los nombres de archivos que hay en el y listarlos en una hoja de Excel.
Alguien me puede ayudar