erzwingen von (;) beim EXP >VBA<
03.02.2004 09:41:03
Sandra
ich habe ein Macro, mit dem ich eine CSV rausschreiben möchte.
Leider ist die Trennung der CSV ein (,) ich brauche jedoch ein (;)
Wer kann mir weiterhelfen, so dass das (;) erzwungen wird.
Gruss Sandra
Sub ExportCSV()
Sheets("CSV").Select
Sheets("CSV").Copy
Dim TB As Worksheet
Dim dName$
Set TB = ActiveWorkbook.Worksheets(1)
'Speicherpfad der name der DATEI setzt sich aus den Zellen r3 r4 zusammen.
dName = "E:\CATTemp\" & _
TB.Range("k2") & "_" & _
TB.Range("l2") & ".csv"
ActiveWorkbook.SaveAs dName, FileFormat _
:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
Sheets("Startseite").Select
Range("a1").Value = 1
End Sub