Macro Unir Archivos de Excel

Macro para unir varios archivos de excel, los cuales se encuentran en la misma carpeta donde tengo el archivo (fichero) donde ejecuto la macro.

[alanledesart]

Genial! Funciona. Lastima que no pude encontrar el comentario de la macro, pero acá se las dejo para que la copien:
Sub UnirFiles()

Dim Hoja As Object

Application.DisplayAlerts = False

A = ActiveWorkbook.Name

R = ActiveWorkbook.Path

ChDir R & "\"

archi = Dir("*.xls*")

Do While archi <> A

Workbooks.Open archi

B = ActiveWorkbook.Name

For Each Hoja In ActiveWorkbook.Sheets

Hoja.Copy

Next

Workbooks(B).Close False

archi = Dir()
Loop
End Sub

[jesusivanguerrerogonzalez]

De varios videos que hay, eres el unico que funciona
mil gracias!!

[adolfoleonidas]

He estado buscando de entre tantos vídeos y este es el único que me ha funcionado.Gracias

[natifonty]

muchas gracias, el único que me ha funcionado!!!! se agradece muchísimo tu aporte!

[evanamen]

Gracias, gracias, gracias! La única macro de las que hay por internet que me ha funcionado

[magdarodriguez]

Gracias!!! Muy clarita la explicación y funcionó perfecto :)

[alvarocuadros]

quedo perfecto, muchas gracias! que excelente ayuda!! felicitaciones!

[juliagomez]

Funciona!! Es lo que buscaba! gracias por tu aporte!

[erendirasusanamedina]

Tenga buen hombre su like!!! fantastica la macro. muchas gracias me has ahorrado años y tiempo!!!!

[lauracarolinaguevara]

El único tutorial con el que sí lo logré. Muchas gracias :)

[ivanherrera]

muchas gracias por la macro me sirvio bastante que gran aporte...

[corinabautistamunoz]

Intento combinar los archivos y me aparece en amarillo esta linea
Hoja.Copy
me puedes ayudar con esto

[ribps]

Cambie archi = Dir("*.xls*") por "*.xml*" porque son los archivos que necesito fusionar, pero ahora me sale el error 1004 y al depurar resalta la fila Workbooks.Open archi, creo que pasa al no tener mas la condicion "While archi <> A" la macro sigue buscando archivos y ocasiona el error, que condicion deberia poner ahora? no tienes que darme todo el codigo solo dame una idea yo ya lo busco

[dianaruiz]

Y si solo quiero copiar la primera hoja de cada archivo y no todas. que debo cambiar?

[fernandourrutia]

La Macro aqui: Sub UnirFiles()

Dim Hoja As Object

Application.DisplayAlerts = False

A = ActiveWorkbook.Name

R = ActiveWorkbook.Path

ChDir R & "\"

archi = Dir("*.xls*")

Do While archi <> A

Workbooks.Open archi

B = ActiveWorkbook.Name

For Each Hoja In ActiveWorkbook.Sheets

Hoja.Copy

Next

Workbooks(B).Close False

archi = Dir()
Loop
End Sub

[sheylanayelicotette]

TE AMO ....ME AHORRASTE UN BUEN DE TIEMPO ....NO DAS CURSO ?

[camilogneccomolina]

Excelente macro. Recomiendo numerar los nombres de los archivos a organizar para que las hojas se organicen en ese mismo orden

[haroldsalazar]

Este me sirvió.. Recomendación.. Coloquen la carpeta en C: o D: no lo hagan dentro de muchas carpetas.

Sub UnirFiles()

Dim Hoja As Object

Application.DisplayAlerts = False

A = ActiveWorkbook.Name

R = ActiveWorkbook.Path

ChDir R & "\"

archi = Dir("*.xls")

Do While archi <> A

Workbooks.Open archi

B = ActiveWorkbook.Name

For Each Hoja In ActiveWorkbook.Sheets

Hoja.Copy

Next

Workbooks(B).Close False

archi = Dir()

Loop

End Sub

[estudiocolodelmontecontado]

Hola, cuando la ejecuto me sale error 76 de espera en tiempo de ejecución, le doy depurar y me señala que está mal la parte ChDir R & "\", tengo office 365

[carlosavasco]

Hola Jesús, excelente tutorial, me podrías indicar como puedo seleccionar únicamente la primer hoja. Gracias.