Luis Mondelo respondió:
Tu macro quedaría así: Sub abrir_txt() On Error Resume Next milibro = ActiveWorkbook.Name Set navegador = CreateObject("shell.application") carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path ChDir carpeta & "\"...
Importar varios archivos txt a la vez a un libro de excel