Queremos combinar los tres ficheros Excel que tenemos ubicados en la dirección: F:\aaa\combinar\ en un único libro Excel.
Empezamos por abrir un nuevo libro Excel habilitado para macros, por ejemplo, combinar.xlsm, como ves en la imagen debajo.
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.
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:
ejecutamos el código pulsando la tecla F5.