Macro listado archivos de una carpeta

03/11/2009 - 20:30 por felipe | Informe spam
Buenas tardes
Me gustaría saber si alguno conoce una macro en Excel (VBA) que permita
obtener un listado de los ficheros que contiene una carpeta.

I would like to know if someone knows any macro that gives me a list of all
files that I have into a directory.

Gracias y un saludo
Thanks
felipe
 

Leer las respuestas

#1 Héctor Miguel
04/11/2009 - 06:17 | Informe spam
hola, felipe !

Me gustaria saber si alguno conoce una macro en Excel (VBA)
que permita obtener un listado de los ficheros que contiene una carpeta...



el siguiente es un ejemplo para rescatar los nombres de archivos en una carpeta
no requiere de macros y puede ser optimizado segun otro tipo de necesidades/opticas/...

1) escribe en la fila 1 (p.e. A1) la ruta a tu carpeta y el tipo de archivos que necesitas rescatar
(p.e.) c:\mis documentos\*.xls (solo archivos de excel) o: c:\mis documentos\*.* (todo tipo de archivos) o: ???

2) ve a (menu) insertar / nombre / definir...
a) nombre: Mis_archivos
en el cuadro de edicion: se refiere a:... escriba la siguiente macro-funcion del (viejo ?) excel v4
b) =archivos(!a$1)&repetir("",0*hoy())
TOMA nota del signo "!"
y considera que mi sistema usa como separador de argumentos a la coma ','

3) introduce la siguiente formula en la celda inferior a la carpeta (p.e. A1)
=contara(mis_archivos)

4) introduce la siguiente formula en la siguiente fila misma columna (p.e. A3)
=si(fila(a1)>a$2,"",indice(mis_archivos,fila(a1)))
-> copia/arrastra/... la formula anterior hacia abajo (al menos) tantas filas como archivos indicados en la fila 2

5) si necesitas rescatar archivos de varias carpetas... solo repite los pasos 1, 3 y 4 (el 2 ya no) en otra/s columna/s

6) si requieres manipular el resultado de lo anterior en otro tipo de listados... (copiar y pegar valores, ordenar, ???)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares