excel2007

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")
  6. 'change folder path of excel files here
  7. Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")
  8. Set filesObj = dirObj.Files
  9. For Each everyObj In filesObj
  10. Set bookList = Workbooks.Open(everyObj)
  11. 'change "A2" with cell reference of start point for every files here
  12. 'for example "B3:IV" to merge all files start from columns B and rows 3
  13. 'If you're files using more than IV column, change it to the latest column
  14. 'Also change "A" column on "A65536" to the same column as start point
  15. Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
  16. ThisWorkbook.Worksheets(1).Activate
  17. 'Do not change the following column. It's not the same column as above
  18. Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
  19. Application.CutCopyMode = False
  20. bookList.Close
  21. Next
  22. 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