Consulta, como traer a excel los archivos que estan en una carpeta

hola, Nelson !

... de que forma por una macro puedo listar todos los nombres de los archivos que se encuentran en una carpeta
... sea predeterminada o que se pueda escojer tambien

prueba a 'escribir' una ruta 'especifica' en alguna celda [que seria la celda 'activa']
-> p.e. c:\documents and settingsombre del usuario\mis documentos\
no olvides el '\' al final
y ejecutas una macro +/- como la siguiente:

Sub Listar_archivos_en_()
Dim Archivo As String, Fila As Integer
Archivo = Dir(ActiveCell & "*.xls")
Do While Archivo <> ""
Fila = Fila + 1
ActiveCell.Offset(Fila) = Archivo
Archivo = Dir()
Loop
End Sub

saludos,
hector.

Hola Héctor Miguel

Muchas gracias por la respuesta

Saludos

Nelsonb






"Héctor Miguel" escribió en el mensaje
news:

hola, Nelson !

... de que forma por una macro puedo listar todos los nombres de los
archivos que se encuentran en una carpeta
... sea predeterminada o que se pueda escojer tambien

prueba a 'escribir' una ruta 'especifica' en alguna celda [que seria la
celda 'activa']
-> p.e. c:\documents and settingsombre del usuario\mis documentos\
no olvides el '\' al final
y ejecutas una macro +/- como la siguiente:

Sub Listar_archivos_en_()
Dim Archivo As String, Fila As Integer
Archivo = Dir(ActiveCell & "*.xls")
Do While Archivo <> ""
Fila = Fila + 1
ActiveCell.Offset(Fila) = Archivo
Archivo = Dir()
Loop
End Sub

saludos,
hector.

Perdonar por la intromision pero me podeis indicar que hago mal:
en A1 pego: C:\Documents and Settings\Pedro\Escritorio\hoy\
En la pestaña de hoja 1 boton derecho ver codigo y pego la macro.
Voy a herramientas macro selecciono la macro la ejecuto y no me
lista nada.

Saludos

observa que la macro especifica archivo *.xls

cambia espa parte por *.* asi podras ensayar la macro

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Pedro" escribió en el mensaje
news:

Perdonar por la intromision pero me podeis indicar que hago mal:
en A1 pego: C:\Documents and Settings\Pedro\Escritorio\hoy\
En la pestaña de hoja 1 boton derecho ver codigo y pego la
macro.
Voy a herramientas macro selecciono la macro la ejecuto y no me
lista nada.

Saludos

en esta direccion explican como hacer lo que usted quiere.

http://www.jkp-ads.com/Articles/ExcelNames08.htm

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Nelsonb" escribió en el mensaje
news:

Hola a todos
quisiera saber de que forma por una macro puedo listar todos los nombres
de los archivos que se encuentran en una carpeta que sea predeterminada o
que se pueda escojer tambien

gracias de antemano

nelsonb