excel2007
Gestión de proyecto digital

Como juntar varios documentos excel en uno!

Update Excel 2016 Como juntar varios documentos excel 2017 en uno

Como juntar varios documentos de excel 2007 en uno

Si tienes muchos documentos excels con el mismo formato y quieres unirlos en un solo documento, sigue los siguientes pasos.
Esta junta se hace unicamente con las primeras hojas de cada documento.

  • Pone todos los archivos excel que quieres juntar en un solo archivo.
  • Luego cierras todos los exceles que tienes.
  • Abre uno nuevo. Este sera el master, donde se juntaran todos los otros documentos.
  • Abre el editor de Visual Basic con ALT + F11. Entonces aparecera un editor.
  • Haz click sobre ThisWorkBook en el menu de la izquierda.
  • Pega el siguiente codigo de macro en el editor
  1. Sub simpleXlsMerger()
  2. Dim bookList As Workbook
  3. Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
  4. Application.ScreenUpdating = False
  5. Set mergeObj = CreateObject("Scripting.FileSystemObject")
  7. 'change folder path of excel files here
  8. Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")
  9. Set filesObj = dirObj.Files
  10. For Each everyObj In filesObj
  11. Set bookList = Workbooks.Open(everyObj)
  13. 'change "A2" with cell reference of start point for every files here
  14. 'for example "B3:IV" to merge all files start from columns B and rows 3
  15. 'If you're files using more than IV column, change it to the latest column
  16. 'Also change "A" column on "A65536" to the same column as start point
  17. Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
  18. ThisWorkbook.Worksheets(1).Activate
  20. 'Do not change the following column. It's not the same column as above
  21. Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
  22. Application.CutCopyMode = False
  23. bookList.Close
  24. Next
  25. End Sub

Luego actualiza en el codígo la ruta de la carpeta donde estas los exceles que quieres juntar.
Tambien puedes cambiar si lo quieres la celda donde empezara la nueva hoja unificada.

Juntar exceles

Apreta el icono: play el codígo o apreta F5.

Ahora si vas al documento excel master, ya veras que lo tienes unificado.

Gracias a la web Da Ultimate por su tutorial fantastico:
http://www.oaultimate.com/office/merge-multiple-excel-files-into-a-single-spreadsheet-ms-excel-2007.html