Juan Vigil

Tengo que estraer un texto de un fichero txt y pegarlo en excel separado por columnas. La MACRO que he usado es la siguiente: Sub ejemplo() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path ChDir ruta & "\" archi = Dir("*.txt") Do While archi <>...