Dante Amor respondió:
H o l a: Te anexo una macro. Sub AbrirCsv() 'Por.Dante Amor col = "C" ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("carga") h1.Cells.Clear ruta = l1.Path & "\" arch = Dir(ruta &...