Combine varias hojas de trabajo en una

En este artículo, aprenderemos cómo ensamblar los datos de diferentes libros de trabajo a través de VBA en Microsoft Excel.

Comprendamos con un simple ejercicio cómo combinar una hoja de cálculo a través de VBA en Microsoft Excel.

Tenemos 3 archivos de Excel diferentes. 2 archivos son xlsx y un archivo es xlsm en una carpeta. Queremos recopilar ambos conjuntos de datos en un archivo de Excel para tener en cuenta algunas cosas que en todos los datos, las filas y columnas se pueden aumentar y disminuir, y tampoco sabemos los nombres de los archivos de Excel y cuántos archivos hay en una carpeta. .

En esta hoja, queremos combinar los datos: -

1^{S t} Datos:-

2^{Dakota del Norte} Datos:-

3^rd Datos:-

Ahora, queremos recopilar los datos en una hoja. Necesitamos seguir los pasos y el código dados a continuación: -

Presione la tecla Alt + F11 para abrir la página VBE para escribir la macro.
Luego vaya a insertar pestaña e inserte un módulo.
Escriba el código mencionado a continuación en la página.

Sub Collate_Data ()

Atenuar ruta de carpeta como cadena, ruta de archivo como cadena, nombre de archivo como cadena

Folderpath = "E: \ Excel Tips \ New VBA topics \ HR Data \" ‘(menciona la ruta del archivo)

filePath = Ruta de carpeta & "* xls *"

Nombre de archivo = Dir (ruta de archivo)

Dim LastrowAs Long, Lastcolumn As Long
Hacer mientras nombre de archivo ""

Workbooks.Open (ruta de carpeta y nombre de archivo)

Lastrow = ActiveSheet.Cells (Rows.count, 1) .End (xlUp) .Row

Lastcolumn = ActiveSheet.Cells (1, Columns.count) .End (xlToLeft) .Column

Rango (Celdas (2, 1), Celdas (Lastrow, Última columna)). Copiar

Application.DisplayAlerts = Falso

ActiveWorkbook.Close

erow = Sheet1.Cells (Rows.count, 1) .End (xlUp) .Offset (1, 0) .Row

ActiveSheet.Paste Destination: = Worksheets ("Sheet1"). Range (Cells (erow, 1), Cells (erow, 5))

Nombre de archivo = Dir

Círculo

Application.DisplayAlerts = True

End Sub

Explicación del código: - En primer lugar, definiremos todas las variables que necesitamos usar al describir el código. Luego usaremos Do While en el código para ejecutar el programa para todos los archivos de Excel. Luego definiremos la ruta de los archivos, y luego definiremos la última fila y columna en la hoja de Excel y luego definiremos el destino para pegar los datos.