Auto Saving File to Text Without Quote

user_14051120 0
Viewed 70

I save a file to Text Format. Upon opening, it seems have quotes on the file.
It show like this " 16,347.21 ". I'm in German format. It should be 16,347.21.
How can I remove it?

Dim path As String
Dim filename As String
path = Range("FolderPath").Text
filename = Range("FileName").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=path & "\" & filename & ".txt", FileFormat:=xlText
ActiveWindow.Close
MsgBox "Data for Upload Saved"
Application.DisplayAlerts = True
save vba excel
1 Answers

xlTextPrinter doesn't seem to include quotes on real numbers. Try:

ActiveWorkbook.SaveAs filename:=path & "\" & filename & ".txt", FileFormat:=xlTextPrinter

enter image description here

user_85785800
Related