Queremos combinar los tres ficheros Excel que tenemos ubicados en la dirección: F:\aaa\combinar\ en un único libro Excel.
![](combina-excel/combinar-01.png)
Empezamos por abrir un nuevo libro Excel habilitado para macros, por ejemplo, combinar.xlsm, como ves en la imagen debajo.
![](combina-excel/combinar-02.png)
Abrimos el editor de Visual Basic con la combinación de teclas: ALT + F11, y una vez abierto, navegamos a la pestaña Insertar -> Módulo, como se ve en la siguiente imagen.
![](combina-excel/combinar-03.png)
Seguidamente escribimos el siguiente código:
Sub combinarlibros
Path = "f:\aaa\combinar\"
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
tal y como vemos en la siguiente imagen:
![](combina-excel/combinar-04.png)
ejecutamos el código pulsando la tecla F5.