How to convert excel file to .txt file

[miniv]

I need a macro to convert Excel File to .TXT file
Also, in excel the date format is (yyyy-mm-dd) and it should retain the format after conversion.

Any thoughts please.


Thanks

[alansidman]

Try this:

Sub TXT1()
Dim path As String
path = "type your file path here" 'something like "C:\Users\Folder1\subfolder"
    ActiveWorkbook.SaveAs Filename:=path & "\Your file name.txt", _
        FileFormat:=xlText, CreateBackup:=False
End Sub