|
Erstens: einmal leserlich
Ich filtere mittels vba-word aus einer Word Datei Daten und schreibe sie in ein Array und trenne sie durch Semikolon(sind 4 Datensätze).
Soweit so gut, jedoch nach der Übergabe in die CSV Datei wird es es nicht in verschiedene Spalten getrennt, egal ob ich es über Komma oder jeweilige andere Zeichen versucht habe.
Das Ziel ist es lediglich die Daten in verschiedenen Spalten zu haben um sie danach ansprechen zu können.
Open sPath & sFilename For Append As #1
For k = 0 To 3
'Write #1, Join(csvDaten, ";")
'Write #1, csvDaten(0); csvDaten(1); csvDaten(2); csvDaten(3)
Write #1, csvDaten(k) & ";"
Next
Close #1
hier die versuchten Möglichkeiten
Habe es jeweils mit Komma, Semikolon, &, Tab, +, in verschiedenen Möglichkeiten versucht, auch es über exel automatisch in verschiedene Spalten zu formatieren, da formartiert es nur die ersten 2 Daten Sätze, 3 und 4 bleiben gleich.
Hinweis: Daten 1 und 2 ist jeweils nur ein Wort und 3 und 4 sind Texte
Zweitens:
csvDaten bezeichnet das Array - ist das nun eindimensional oder?
Du schreibst von 4 Datensätzen
|