Macro txt a excel delimitado por "_"

[J arevalo]

Buen dia

Estoy adaptando una macro que sirve para exportar archivos Txt a excel, funciona de maravilla, es funcional cuando se trata de separar por coma y espacio, pero quisiera saber como le puedo adaptar para que me funcione con alguna condicional diferente a las antes mencionadas como seria "_"

Esta es la parte de la macro donde tengo entendido se mueve para poder delimitar por coma o espacio y quisiera saber como delimitar por alguna carácter diferente a los que se tiene "_"

 With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
    mPath & iFile, Destination:=ActiveSheet.Range("$A$1"))
    .AdjustColumnWidth = True: .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True: .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False: .TextFileSpaceDelimiter = False
    .TextFileDecimalSeparator = ".": .TextFileThousandsSeparator = ","
    .Refresh BackgroundQuery:=False
  End With

[Abraham Valencia]

Hola

Probaste con:

.TextFileOtherDelimiter = "-" 

Obviamente no debes colocar otros "Delimiter" en "True", como tienes actualmente.

[J arevalo]

En 29/5/2020 at 17:01 , avalencia dijo:

Hola

Probaste con:

.TextFileOtherDelimiter = "-" 

Obviamente no debes colocar otros "Delimiter" en "True", como tienes actualmente.

Mucha gracias, funciona perfectamente