Red de conocimiento informático - Material del sitio web - Cómo fusionar hojas de trabajo con el mismo formato en la misma carpeta usando VBA.

Cómo fusionar hojas de trabajo con el mismo formato en la misma carpeta usando VBA.

A menudo uso esta modificación para fusionar hojas de trabajo

Sub G22 Table 10th()

Dim SQL0$, strTbl$, i%, thisbookname$, thisheetname$, sName$, cn, sh , rowend&, rng$

Dim Filename As Variant

Dim RefEdit1, RefEdit2, RefEdit3, RefEdit4 As String

Filename = Application.GetOpenFilename("Microsoft Office Excel Archivos (*.xls", "Por favor.GetOpenFilename("Archivos de Microsoft Office Excel (*.xls), *.xls", "Seleccione un archivo", , Verdadero)

Si no esArray( Nombre de archivo ) Luego salga de Sub

thisbookname = ActiveWorkbook.Name

thisSheetname = ActiveSheet.Name

'Resumen de varios archivos

Application.DisplayAlerts = Falso

Aplicación.ScreenUpdating = Falso