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