Luis Mondelo respondió:
Para ello la única línea que tendrías que modificar es la siguiente y dependiendo de cada caso: -Separado por comas Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, comma:=true -Separado por punto y coma...
Macro importar archivos txt a la vez con delimitación por tabulación, punto y coma y por otros