Error when saving as TAB TXT (euro transforms in $)

S

SpeeD

Hi.

I've made a simple macro to save 2 sheets do a txt tab separated. The
problem is that the numbers formated as "currency" (with a euro sign)
end up with a dollar sign in the resulting txt.

Does anyone knows why this is hapenning?

this is my code


Sheets("HOLDI").Select
ActiveWorkbook.SaveAs Filename:=3D _
ActiveWorkbook.Path & "\..\Dados_holdi.txt" _
, FileFormat:=3DxlText, CreateBackup:=3DFalse
Sheets("EMP").Select
ActiveWorkbook.SaveAs Filename:=3D _
ActiveWorkbook.Path & "\Dados_emp.txt" _
, FileFormat:=3DxlText, CreateBackup:=3DFalse

ActiveWindow.Close

Thnks a lot

SpeeD
 
J

Jacob Skaria

Try the below macro

Sub Macro3()
Dim strPath As String

strPath = ActiveWorkbook.Path & "\"
Application.DisplayAlerts = False

Sheets("HOLDI").Select
ActiveWorkbook.SaveAs Filename:=strPath & "Dados_holdi.txt", _
FileFormat:=xlText

Sheets("EMP").Select
ActiveWorkbook.SaveAs Filename:=strPath & "Dados_emp.txt", _
FileFormat:=xlText

Application.DisplayAlerts = True
ActiveWindow.Close False

End Sub

If this post helps click Yes
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top