Actividad pública reciente
Ha valorado "Excelente" la respuesta
Necesito una Macro para unir 700 archivos Excel
Te anexo la macro Sub UnirArchivos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) h1.Cells.Clear ' fila = 1 ruta = ThisWorkbook.Path & "\" arch = Dir(ruta & "*.xlsx")...