Anónimo
Macro para juntar hojas
Existe alguna macro que junte todos lo archivos de una carpeta en un solo libro
Te agradeceré si me puedes ayudar con esto yo encontré una macro que junta hojas pero recorre todos los archivos del computador y yo solo necesito que recorra una carpeta especifica.
Sub juntar()
Dim hoja As Object
Application.DisplayAlerts = False
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.xls*")
Do While archi <> mio
Workbooks.Open archi
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy After:=Workbooks(mio).Sheets(Workbooks(mio).Sheets.Count)
Next
Workbooks(otro).Close False
archi = Dir()
Loop
End Sub
1 respuesta
si tengo la macro en la carpeta donde tengo todos los archivos pero me copia todos los archivos del computador
Ya probé la macro y funciona bien.
Tienes que guardar el archivo que tiene la macro en la carpeta donde están tus archivos *.xls*
Si tu archivo es nuevo y no lo has guardado, la macro lee los archivos de la carpeta raíz c:\
Es por eso que tienes que guardar el archivo con la macro en la carpeta de archivos.
Y otra cosa, la macro no lee todos los archivos del computador, solamente los de una sola carpeta.
Revisa y me comentas.
Saludos. DAM
seguí uno a unos los pasos que me diste y ahora me esta generando un error 1004 en tiempo de ejecución al depurar de muestra problemas con la siguiente instrucción
hoja.Copy after:=Workbooks(mio).Sheets(Workbooks(mio).Sheets.Count)
logre que funcionara pero me queda una sola duda cuando ejecuto la macro me busca los archivos desde la carpeta mis documentos se puede cambiar esto.
Todo esta en esta línea
ruta = ActiveWorkbook.Path
La carpeta o ruta empieza donde tengas el libro con la macro
Si quieres cambiarlo, sin importar donde esté el libro con la macro, pon esto, por ejemplo:
ruta = "C:\archivos\otros\etc\"
funciona pero tengo un problema, mis hojas tienen el mismo nombre en todos los libros. que le puedo agregar? - Katherine Bazan Carmen
ERA SI NO MAS:Sub juntar()Dim hoja As ObjectApplication.DisplayAlerts = Falsemio = ActiveWorkbook.Nameruta = ActiveWorkbook.PathChDir ruta & "\"archi = Dir("*.xls*")NOM = 1Do While archi <> mioWorkbooks.Open archiotro = ActiveWorkbook.NameFor Each hoja In ActiveWorkbook.Sheetshoja.Copy After:=Workbooks(mio).Sheets(Workbooks(mio).Sheets.Count)Sheets("Reporte Resultados por Agente").SelectSheets("Reporte Resultados por Agente").Name = NOMNOM = NOM + 1NextWorkbooks(otro).Close Falsearchi = Dir()LoopEnd Sub - Katherine Bazan Carmen
Hola: Necesitas algo en la macro o ya no? Con mucho gusto te ayudo con todas tus peticiones.Crea una nueva pregunta en todoexpertos, en el tema de microsoft excel, en el desarrollo de la pregunta escribe: "para Dante Amor", ahí me describes con detalle lo que necesitas.Sal u dos - Dante Amor