Joy se topó con un problema al fusionar varios libros de trabajo. La mayoría de los libros de trabajo, unos 200, todos en una sola carpeta, contienen cada uno una sola hoja de trabajo, pero algunos contienen más. Las hojas de trabajo que forman cada uno de estos libros de trabajo deben agregarse a un solo libro de trabajo.

La forma más fácil de realizar fusiones de esta magnitud, especialmente si tiene que hacerlo con frecuencia, es con una macro. La siguiente macro muestra un cuadro de diálogo que le pide que seleccione los archivos para fusionar. (Puede seleccionar varios libros de trabajo manteniendo presionada la tecla Ctrl mientras hace clic en cada uno). Recorre la lista que seleccione, abriendo cada uno y moviendo todas sus hojas de trabajo al final del libro de trabajo con el código.

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls?), .xls?", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open FileName:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets _           (ThisWorkbook.Sheets.Count)

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

En el proceso de agregar las hojas de trabajo al final del libro de trabajo, Excel agregará automáticamente un (2), (3), etc. cuando se detecten nombres de hojas de trabajo duplicados. Todas las fórmulas del libro que se refieran a otras hojas también se actualizarán para reflejar los nuevos nombres.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12652) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Merging_Many_Workbooks [Fusionando muchos libros de trabajo].