öfnnen u speichern CSV-Datei mit VBA
pbaer007
ich habe in einem Verzeichnis mehrere CSV-Dateien, die Anzahl und Filenamen variieren, die ich per Makro öffne und jeweils einen Datensatz hinzufüge. Danach sollen diese mit geändertem Namen in einem anderen Verzeichnis wieder als CSV-Dateien abgelegt werden.
Das Öffnen und Hinzuschreiben funktioniert.
Jedoch beim Rückspeichern habe ich Probleme:
Excel fügt an mehreren Stellen zusätzliche Anführungszeichen ein und am Ende jeder Zeile ein Komma
vorher
Log;Kategorie;Bezug;Funktion;Rechte;Zuordnung (Kopfzeile des Files)
371;13;süd;nein;1;0
3,218;12;unten;nein;1;1
Nachher
Log;Kategorie;Bezug;Funktion;Rechte;Zuordnung (Die Kopfzeile bleibt unverändert)
371;13;süd;nein;1;0,
3,218;12;unten;nein;1;1,
Das ist schlecht, da eine andere Anwendung, die dann auf diesen File zugreifen soll, damit Probleme hat.
Ich habe im Internet leider keine Lösung gefunden, oder die richtige nicht verstanden.
Gibt es eine Möglichkeit, den File im "Urszustand" wieder abzuspeichern?
Es ist nicht einmal nötig, dass der File in Excel geöffnet wird, im NotePad würde vollkommen ausreichen.
Dies hab ich aber nicht via VBA hinbekommen.
Nachfolgend die entscheidende Stelle aus dem Code:
Sub mkrErgänzungCSV()
ChDir varUrsprung
strDatei = Dir(varUrsprung & "*.csv")
Do While strDatei ""
Set wb = Workbooks.Open(strDatei)
varname = ActiveWorkbook.Name
'Bearbeitung
'Speichern der Dateien unter neuem Verzeichnis
ActiveWorkbook.SaveAs varZielPfad & strDatei
ActiveWorkbook.Close (True)
'Schauen, ob es noch weitere CSV-Dateien gibt
strDatei = Dir
Loop
End Sub
Gert
Anzeige