Unir hojas de varios libros (*.xlsx, *.xls)

[elunico22]

Buenas con todos.

En esta oportunidad les compartire una macro que une las hojas de varios libros en una sola hoja.

En la anterior entrega que hice comparti una macro que hacia lo mismo pero solo para los archivos de excel 2007 en adelante con extension (*.xlsx), hice una modificacion y ahora tambien sirve para archivos 97-2003 con extension (*.xls).

Luego de descargarlo lo abren ejecutan la macro open files y les aparecera el cuadro de dialogo donde podran seleccionar los archivos de excel a unir.

Espero les sea de utilidad

Saludos

Unir_varios_libros.rar

[tapiarodrigo]

Gracias.

[unforgiven1311]

Muchas gracias!

[jenifer suarez]

Buenas tardes,

Tendrás una macro que pueda copiar y dejar el mismo numero de hojas en el consolidado, es decir.

Tengo libro1 con hoja1, hoja2, hoja3

Tengo libro2 con hojax,hojay,hojaz

y quiero consolidarlo en un libro que tenga hija1,hoja2,hoja3,hojax,hojay y hojaz?

Gracias

[AnBon]

Excelente!!! Muchas gracias

[juli]

como hago para q haga el columnas

[juli]

Quiero esta macro pero no en filas sino que cada archivo me salga en una columna???

[Invitado jorge_armienta]

Muchas Gracias!!!

[elunico22]

De nada

[felipe777]

Hola "El Único", estoy tratando de unir 4 archivos con tu macro y me sale error 1004.

Luego, le doy depurar y me sale lo siguiente, resaltado con color amarillo:

Hoja.Copy after:=Workbooks(a).Sheets(Workbooks(a).Sheets.Count)

[elunico22]

Hola:

Los archivos deben ser cualquier version de excel, y juntos no deben superar las 1,048,576 filas.

Saludos

[felipe777]

Si, efectivamente, los archivos son de cualquier versión y juntos no superan las 2000 filas, sin embargo, sigue saliendo el error.

[SAMICK]

Muy útil esta macro, gracias.

Ahora, busco esto mismo que Jenifer, alguien sabe?

Buenas tardes,

Tendrás una macro que pueda copiar y dejar el mismo numero de hojas en el consolidado, es decir.

Tengo libro1 con hoja1, hoja2, hoja3

Tengo libro2 con hojax,hojay,hojaz

y quiero consolidarlo en un libro que tenga hija1,hoja2,hoja3,hojax,hojay y hojaz?

Gracias

[elunico22]

Hola disculpen por la demora jenifer y SAMICK:

Para que al momento de importar las hojas de varios libros y estas a su vez no se borren, deberian ingresar a la macro y borrar este codigo que esta en la subrutina Unir_Hojas

For Sig = 2 To Worksheets.Count

      Worksheets(2).Delete

Next[/CODE]

Saludos

[SAMICK]

Muchas gracias!

[Pabloabumohor]

creo solo me funciona para excel que posee pocas hojas, con algunos excel me dice que se desbordo.... ¿Como se puede arreglar eso?

[mardino777]

genial muchas gracias! espero contar con su ayuda apara otra cosa mas cuando lo necesite

[Jonathan L]

Hola, disculpa tengo una problemática similar.

También quiero unificar varios libros en uno solo, el problema es que a diario realizo descargas de información desde un aplicativo que me hace las descargas en archivos de Excel (50 diarias promedio). las cuales no guardo ya que a diario cambian.

Seria posible que la macro pueda realizar la misma función pero con los libros abiertos (Activos)?

Espero y puedas apoyarme, gracias.

[xluismix14]

[uSER=162796]@elunico22[/uSER] tendras un aporte para unir archivos con extension *xlsm, gracias

[elunico22]

hola [uSER=112954]@xluismix14[/uSER] :

Solo debes cambiar en la parte donde dice ".xlsx" por "*.xlsm".

Saludos

[cristian8ar]

Como puedo hacer que la macro tambien incluya el nombre del archivo?