Öffnen einer CSV-Datei per Excel-Makro
04.01.2004 23:11:53
Wolfgang
ich habe folgendes Problem:
ich will eine vorhandene CSV-Datei per Excel-Makro öffnen, Spalten einfügen und alle Spalten formatieren. Anschließend den Datenteil dieser CSV-Datei kopieren und diese Kopie in ein vorhandenes Tabellenblatt einer Exceldatei einfügen.
Führe ich das Makro schrittweise aus, so erfolgt die Bearbeitung wunschgemäß und korrekt. Rufe ich das Makro jedoch von Excel aus auf, so wird der CSV-Datei-Inhalt nicht korrekt in Spalten aufgelöst, d.h. das Semikolon wird nicht als Trennzeichen erkannt, dafür aber das Komma als Trennzeichen genommen. Was z.B. dazu führt, das Beträge wie 44,51 jetzt in 2 Spalten stehen.
Code-Ausschnitt:
----------------
Workbooks.OpenText FileName:="C:\daten\xyz.csv", _
Origin:=xlWindows, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1))
a) Kennt jemand die Ursache für das unterschiedliche Verhalten von Einschrittausführung und Aufruf aus Excel und
b) gibt es eine Umgehungslösung / andere Lösung zum Öffnen einer CSV-Datei?
Vielen Dank im voraus!
Wolfgang