Exporting data to Text (Tab Delimited)

[Dilshan Anandan]

Hi All,

I am Trying to export a particular sheet to Text (Tab Delimited) File. The path to save the file and the name of the text file should be selected by the user.
I tried searching in internet and i am Fed up on this. I tried the below code but the whole workbook is getting saved in the selected path.
The Code I tried is -

Sub Savetxt()


Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file (*.txt), *.txt")
If file_name <> False Then
ActiveSheets.SaveAs Filename:=file_name
MsgBox "File saved!"
End If
End Sub

The text file getting saved is something like opening a excel file with text book.

If anyone could help on this, that would be great.
Thank you in advance

Dilshan

 

[Joe4]

Welcome to the Board!

It is not enough to change the file extension, you must also change the file type. Otherwise, it will just save it as an Excel file.
If you want to save it as a tab-delimited text file, you need to add this:

ActiveWorkbook.SaveAs Filename:=file_name[COLOR=#ff0000], FileFormat:=xlText[/COLOR]

Note: You can get this part of the code pretty easily by using the Macro Recorder. Just turn on the Macro Recorder and record yourself saving as a Tab-Delimited Text file. Then stop the Recorder and look at the code that you just recorded.

 

[Dilshan Anandan]

Thank you for the help.
That really worked. And that was a good idea, to record and view the code.