Gruppe
Extern
Problem
Wenn ich ein Tabellenblatt manuell als CSV-Datei speichere, wird das Semikolon als Feldtrenner eingesetzt. Wie kann ich stattdessen das Komma einsetzen?
StandardModule: basMain
Sub AlsCsvSpeichern()
Dim sFile As String
ActiveSheet.Copy
sFile = Application.Path & "\testext.csv"
ActiveWorkbook.SaveAs _
FileName:=sFile, _
FileFormat:=xlCSV
ActiveWorkbook.Close savechanges:=False
Workbooks.Open sFile
Columns.AutoFit
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub