Decimaal scheidingsteken verandert bij het opslaan van gegevens naar een txt-bestand

[Kirana2014]

Hallo iedereen

Ik hoop dat iemand hier mij kan helpen, want ik ben er zelf niet in geslaagd de juiste weg te vinden.

Ik heb een aantal macro's gemaakt die me helpen om gegevens als txt-bestand op te slaan.

Maar wanneer ik de macro uitvoer om de gegevens in een txt-bestand op te slaan (ik heb onderstaande macro's gebruikt, verandert het automatisch alle "," in "."

Help alstublieft hoe automatisch alle "." in ","

Sub Save_txt()
 
    Sheets("data").Select
    Sheets("data").Copy
    ChDir "C:\Kirana Data"
    ActiveWorkbook.SaveAs Filename:="C:\Kirana Data\test1234.txt", FileFormat:= _
        xlText, CreateBackup:=True
    ActiveWorkbook.Close
End Sub

 

[edmoor]

Maak er eens dit van:

ActiveWorkbook.SaveAs Filename:="C:\Kirana Data\test1234.txt", FileFormat:=xlText, CreateBackup:=True, Local:=True

En haal die ChDir opdracht er uit.