Dante Amor respondió:
Te anexo la macro para leer todos los archivos txt de una carpeta Sub Importar_Archivos() 'Por.Dante Amor Application.ScreenUpdating = False Set h = ActiveSheet h.Cells.Clear ruta = "C:\Prueba excel\" 'ruta = "C:\trabajo\libros\" ' fila = 1 arch =...