Problema en la siguiente macro (junta archivos exel en uno solo)

Esta macro junta varios archivos del tipo .csv en uno solo archivo. El problema es que al terminar de juntar todos los archivos, al parecer sigue buscando mas archivos para juntar y me da un error.

Quiero saber si hay que agregar alguna instrucción más, y en el caso que necesite agregar mas funciones al término de éstas (por ejemplo fórmulas para realizar algún cálculo), en qué lineas debería agregarlas?

La macro es la siguiente:

Sub juntar()
Dim hoja As Object
Application.DisplayAlerts = False
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.csv*")
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

Muchas Gracias!

1 respuesta

Respuesta
1

Para corregir el error de la macro cambia esta línea

Do While archi <> mio

Por esta

Do While archi <> mio And archi <> ""

Si quieres agregar otras funciones para cada archivo que ya agregaste, hazlo después de esta línea

Next

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas