Show Tab in Sep when Exporing to Txt

[Miya]

Hi, in cpearson code to export txt file how do i show sep by tab, i tried using vbTab but when i saved it and opened via notepad it showed "vbTab"


http://www.cpearson.com/excel/ImpText.aspx

Sub DoTheExport()
ExportToTextFile FName:="C:\Test.txt", Sep:=";", _
SelectionOnly:=False, AppendData:=True
End Sub

 

[VoG]

Hi. Try without quotes

Sub DoTheExport()
ExportToTextFile FName:="C:\Test.txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub

 

[Miya]

Perfecto, thank Vog

Hi. Try without quotes

Sub DoTheExport()
ExportToTextFile FName:="C:\Test.txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub

 

[Miya]

Hi Vog, i have one more question regarding the below, i have my file path as a named range, how do i reflect this named range below, is it just as simple as this.

rngPath.txt

Hi. Try without quotes

Sub DoTheExport()
ExportToTextFile FName:="C:\Test.txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub

 

[VoG]

Try

Sub DoTheExport()
ExportToTextFile FName:=Range("rngPath").Value & ".txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub

 

[Miya]

That Worked, but i noticed when i run Cpearson code the text file does not overwrite previous version, so I have Test.txt saved in C:\Test\Downloads, but when i run the code twice it does not override the file, is there something in his code that stops overwriting?

Try

Sub DoTheExport()
ExportToTextFile FName:=Range("rngPath").Value & ".txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub

 

[VoG]

I'm not sure why it doesn't overwrite but you could always delete the existing file

Sub DoTheExport()
On Error Resume Next
Kill Range("rngPath").Value & ".txt"
On Error GoTo 0
ExportToTextFile FName:=Range("rngPath").Value & ".txt", Sep:=vbTab, _
SelectionOnly:=False, AppendData:=True
End Sub