decimaltrenner txt exportieren
04.07.2016 09:53:03
Sven
Ich habe das Problem beim exortieren eines excel-sheets, in Excel ist der Decimaltrenner "," im txt-file jedoch "."
Ich exportiere mit:
Sub Text()
Dim i As Integer
Dim Home As String
Home = ThisWorkbook.Path
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
Worksheets(i).Activate
'Zielpfad
ActiveWorkbook.SaveAs Filename:="C:\" & Sheets(i).Name & ".txt", FileFormat:=xlText
'Homepfad
'ActiveWorkbook.SaveAs Filename:=Homepath & "\" & Sheets(i).Name & ".txt", FileFormat:=xlText
Next i
Application.DisplayAlerts = True
End Sub
Public Sub Workbook_Open()
With Application
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False
End With
End Sub
vg