CSV-Dateien erstellen - Formatierungsproblem
pbaer007
ich möchte bestehende CSV-Dateien bearbeiten.
Hierzu gibt es ein Macro, welches aus einer Liste die entsprechenden Dateien aufruft, sie bearbeitet und dann mit neuem Namen wieder abspeichert. Der Aufbau der zu bearbeitenden Dateien und somit die Felder sind jeweils unterschiedlich.
(Ich hatte am 21.07.2012 schon einmal gepostet und gedacht,
ich hätte die Lösung gefunden - LEIDER NICHT!)
Soweit ich das manuell mit "File save as: CSV(Comma delimited)" mache, funktioniert es.
Damit erhalte ich Dateien, die später weiter genutzt werden können.
Ich habe auch zur Kontrolle den Speichervorgnag mit dem Macro-Recorder aufgezeichnet.
Lass ich nun diese Schritte mit dem Makro ausführen, werden bei der neuen Datei jeweils Anführungszeichen am Anfang und am Ende eines Textfeldes hinzugefügt,
was eine spätere Verwendung unmöglich macht.
Hier die entsprechende Stellen aus dem Macro:
Sub mkrErstelle_CSVDatei_2()
For w = 1 To 10
varOpenBezug = Workbooks.Open(varUrsprung & Workbooks("Export_Datei"). _
Worksheets("Sheet2").Cells(4 + w, 2))
Set wb = Workbooks.Open(varOpenBezug)
'diverse Arbeitsschritte
ActiveWorkbook.SaveAs Filename:=varZielPfad & varName, FileFormat:=xlCSV, _
Local:=True
Next w
End Sub
Ich habe in der ZIP-Datei mit drei Files (Original, manuelle Speicherung und Macro) als Beispiel hochgeladen.
https://www.herber.de/bbs/user/81138.zip
Ich würde mich sehr freuen,
wenn es jemand gibt, der mich von diesem Problem erlösen kann.
;-)
Vielen Dank & viele Grüße
Gert