Combinar múltiples hojas Excel VBA

1.1 Código VBA para Combinar Hojas

Sub Combinar_hojas()

    Path = "C:\Users\Edison\OneDrive\Documentos\Classroom\Econometría I\Bibliografías\Texto_Damodar N. Gujarati_BOOK\Data_Gujarati\Excel Files Gujarati_5 Edicion\"
    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()
    Loop
End Sub

1.2 Explicación del Código

• Path: Define la ruta del directorio donde se encuentran los archivos Excel que deseas combinar.
• Filename: Utiliza la función Dir para obtener el primer archivo que cumpla con el patrón “*.xls”.
• Do While Loop: Este bucle se ejecuta mientras haya archivos en la carpeta que coincidan con el patrón especificado.
• Workbooks.Open: Abre cada archivo en modo de solo lectura para evitar modificaciones accidentales.
• For Each Loop: Copia cada hoja del libro de trabajo abierto en el libro actual después de la primera hoja.
• Workbooks(Filename).Close: Cierra el archivo después de copiar todas sus hojas.
• Filename = Dir(): Actualiza Filename para el siguiente archivo en la carpeta.

1.3 Cómo Usar Esta Macro

1. Abrir Excel: Abre una nueva hoja de Excel.
2. Acceder a VBA: Presiona ALT + F11 para abrir el editor de VBA.
3. Insertar Módulo: En el editor, inserta un nuevo módulo (Insert > Module).
4. Pegar el Código: Copia y pega el código VBA proporcionado en el módulo vacío.
5. Ejecutar la Macro: Vuelve a Excel, ve a Developer > Macros, selecciona Combinar_hojas y haz clic en Ejecutar.

Recuerda ajustar la ruta Path según la ubicación de tus archivos en tu sistema.

Este script puede ahorrarte mucho tiempo si trabajas con múltiples archivos de Excel, especialmente en tareas repetitivas como la consolidación de datos para análisis econometría o cualquier otra aplicación donde los datos estén dispersos en varios libros.