Generar un archivo TXT de una hoja en especifico

[Antonio1099]

Hola de nuevo y saludos a todos

 

Tengo una inquietud y quisiera pedir de sus apoyo para que me apoyen con lo siguiente

 

Tengo este ejemplo, el cual está conformado por 3 hojas de Excel distintas, la principal sería la de DATOS y lo que necesito es saber que si es posible generar un archivo plano (TXT) de esta hoja y que se guarde en la misma ruta donde este el archivo de Excel, en este caso el nombre del archivo se llama “Ejemplo Txt”.

De igual manera que al momento que se guarde en el TXT este en forma tabular o separado por un pipe o comas. Este Archivo se debe de guardar considerando todas las columnas y filas que haya en el archivo de Excel.

 

Será posible de que alguien me pueda apoyar con este caso

 

Gracias!

Ejemplo TXT.xls

[AlexanderS]

Hola, prueba así:

Sub TXT()

    RUTA = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 3) & "txt"
    
    ActiveWorkbook.SaveAs Filename:=RUTA, FileFormat:=xlText

End Sub

Comentas, salu2.

[aaquino]

Prueba a ver que tal

Si te ha sido de utilidad, comenta y un like

Ejemplo TXT.xls

[Antonio1099]

Gracias por tu repsuesta, me funciona perfectamente,

Solamente quisiera ver si es posible que el TXT se genere en forma tabular en vez de "pipe"