Abrir varios archivos de excel y validar información

Question

Hola a todos

Tengo varias consultas a ver si me pueden ayudar. Necesito ejecutar por medio de una macro me pueda contar la cantidad de archivos con extensión .xls en la siguiente carpeta "C:\Archivos\" y a la vez pueda ir abriendo cada archivo y validar la información que alli se encuentre.

Es decir si en la carpeta hay 10 archivos en excel, la macro pueda recorrer cada archivo e ir abriendolo uno por uno y por consiguiente leyendo la información que encuentre en cada archivo, una vez que termine de revisar la información que encuentre cierre el archivo y siga con el siguiente hasta llegar al archivo número 10.

Espero poder explicarme. Agradeceré toda la ayuda posible.

Saludos  

Answer 1

Podes ir con filesystemobject recorriendo

dim fs as scripting.filesystemobject

dim ex as excel.application

dim a as scripting.file

for each a in fs.getfolder(path).files

if right(a.name,3) = "xls" then

  ex.workbooks.open(a.path)

y ahi trabajar con el excel

luego lo cerras y seguis dando vueltas

next