Importar hojas usando Excel VBA

Hola, por aquí Miguel y hoy os traigo un nuevo artículo.

A continuación veremos un programa en Excel VBA ese importar hojas de otros archivos de Excel a un archivo de Excel.

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

Localización:

Importar hojas usando Excel VBA

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 una variable de tipo Integer.

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

2. Desactive la actualización de la pantalla y la visualización de alertas.

Application.ScreenUpdating = Falso

Application.DisplayAlerts = 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 y 8) al ciclo.

5. No existe una forma sencilla de copiar hojas de trabajo de archivos de Excel cerrados. Entonces abrimos el archivo de Excel.

Workbooks.Open (directorio y nombre de archivo)

6. Importe las hojas del archivo de Excel a import-sheet.xlsm. Para Cada sale de En
Libros de trabajo (nombre de archivo). Hojas de trabajo
total = Libros de trabajo ("import-sheets.xlsm"). Worksheets.count
Libros de trabajo (nombre de archivo). Hojas de trabajo (sheet.Name) .Copy _
after: = Workbooks ("import-sheets.xlsm"). Hojas de trabajo (total) Entonces

sale de

Explicación: La variable total rastrea el número total de hojas de cálculo import-sheet.xlsm. Usamos el método Copiar del objeto Hoja de trabajo para copiar cada hoja de trabajo y pegarla después de la última hoja de trabajo de import-sheets.xlsm.

7. Cierre el archivo de Excel.

Libros de trabajo (nombre de archivo). Cerrar

8. 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.

9. Active la actualización de la pantalla y vuelva a mostrar las alertas (fuera de circuito). Application.ScreenUpdating =

Cierto Application.DisplayAlerts =

Cierto

10. Pruebe el programa.

Resultado:

Importar resultado de hoja de cálculo

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