Code erzeugt unbrauchbare CSV-Datei
07.10.2014 18:56:33
stormlamp
vor ein paar Tagen wurde mir hier geholfen mit einem Code, der ein Tabellenblatt in einer neuen Mappe erzeugt und diese neue Mappe dann unter einem ganz bestimmten Namen im gleichen Verzeichnis abspeichert, wie die Ursprungsdatei aber im CSV-Format.
Das funktioniert auch, aber wenn ich dann diese CSV-Datei öffne mit Excel, dann werden die Felder nicht kommasepariert in Spalten verteilt sondern der gesamte Inhalt einer Zeile mitsamt den Kommata steht jeweils in der Zelle der Spalte A.
Also steht dann bspw. in Zelle A6 "4711,10,,13,0,0,0,8,7,8,0,0,,0,0"
Kann mir bitte jemand helfen, den Fehler zu beseitigen. Hier der Code:
Dim wkb As Workbook
Dim wks As Worksheet
Dim strpath As String
Dim strDatei As String
Dim strdefault As String
Dim strName As String
Set wkb = ThisWorkbook
Set wks = wkb.Sheets("Tabelle1")
strpath = wkb.Path
strdefault = Mid(wks.Cells(2, 1).Value, 2, 2) 'Teilstring der Zelle A2 als Vorgabewert
strName = InputBox("Bitte geben Sie den Benutzer ein: ", "Eingabe", Default:=strdefault)
strDatei = strpath & "\Benutzer_" & strName & "_" & Year(Now) & "_" & Month(Now) & "_" & _
Day(Now) & "_" & Hour(Now) & "_" & Minute(Now) & ".csv"
wks.Copy
ActiveWorkbook.SaveAs Filename:=strDatei, FileFormat:=xlCSV, CreateBackup:=False