Archivos en un directorio en Excel VBA

Buenas noches, por aquí Miguel y esta vez os traigo un nuevo artículo.

A continuación veremos un programa en Excel VBA ese bucles en todos los libros y hojas de trabajo cerrados ahora directorioy muestra todos los nombres.

Descarga Book1.xlsx, Book2.xlsx, Book3.xlsx, Book4.xlsx y Book5.xlsx y agrégalos a "C: test "

Localización:

Archivos en un directorio de ejemplo

Agregue las siguientes líneas de código al botón de comando:

1. Primero, declaramos dos variables de tipo String, un objeto de hoja de trabajo y dos variables de tipo Integer.

Oscuro directorio Cómo Cuerda, Nombre del archivo Cómo Cuerda, hoja Cómo Hoja de trabajo, yo Cómo Entero, j Cómo Entero

2. Para evitar que la pantalla parpadee, desactive la actualización de la pantalla.

Application.ScreenUpdating = Falso

3. Inicialice el directorio de variables. Usamos la función Dir para encontrar el primer * .xl ?? archivo almacenado en este directorio.

directorio = "c: prueba "
fileName = Dir (directorio & "* .xl ??")

Nota: la función Dir admite el uso de varios caracteres

y comodines de un solo carácter (?) para buscar todo tipo de archivos de Excel.

4. La variable fileName ahora tiene el nombre del primer archivo de Excel encontrado en el directorio. Agrega un bucle Do While.

Agregue las siguientes líneas de código (en 5, 6, 7, 8 y 9) al ciclo.

5. Inicialice las variables Integer y agregue el nombre del archivo de Excel a la primera columna de la fila i.
yo = yo + 1
j = 2

Celdas (i, 1) = nombre de archivo

6. No existe una manera fácil de extraer datos (o nombres de hojas) de archivos de Excel cerrados. Entonces abrimos el archivo de Excel.

Workbooks.Open (directorio y nombre de archivo)

7. Agregue todos los nombres de las hojas del archivo de Excel a las demás columnas de la fila i. Para Cada sale de En
Libros de trabajo (nombre de archivo). Hojas de trabajo
Libros de trabajo ("archivos-en-un-directorio.xlsm"). Hojas de trabajo (1). Celdas (i, j) .Valor = hoja.Nombre
j = j + 1 Entonces

sale de

8. Cierre el archivo de Excel.

Libros de trabajo (nombre de archivo). Cerrar

9. La función Dir es una función especial. Para obtener los otros archivos de Excel, puede usar la función Dir nuevamente sin argumentos.

fileName = Dir ()

Nota: cuando no coinciden más nombres de archivo, la función Dir devuelve una cadena de longitud cero (""). Como resultado, Excel VBA dejará el ciclo Do While.

10. Vuelva a habilitar la actualización de la pantalla (fuera de ciclo). Application.ScreenUpdating =

Cierto

11. Pruebe el programa.

Resultado:

Archivos en un directorio en Excel VBA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info