Este post está dedicado a "María Ángeles", que como bien sabe casi todo está en los libros y el resto en el corazón... ¡Feliz cumpleaños!
De forma automática podemos combinar todos los libros de una carpeta en un único libro.
- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Sub une_libros()
Set fs_objeto = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Seleccionar la carpeta"
.Show
End WithOn Error Resume Next
Path = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"Set Directorio = fs_objeto.GetFolder(Path)
Filename = Dir(Path & "*.xls*")Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
LoopEnd Sub
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
- EJECUTAR MACRO
Ejecutar la macro: une_libros.
Indicar la carpeta deseada donde se encuentran los archivos Excel para combinarlos.
Verificar como en el libro activo inserta las hojas de los libros situados en la carpeta seleccionada.
Excel Experto VBA - Macros
Excelente!!!!!!!! Muchisimas gracias
Buenísimo!!!Gracias!!
Muchas gracias , esta genial
Muy bueno!! Gracias
Super eficiente! Muchas Gracias!
Después de ver otras soluciones, esta sí que funciona.
Muchas gracias.