Hallo,
??? "Workbooks.OpenText geht nachweislich nicht bei Dateien mit Endung ".csv" und ";" Trennzeichen." ???
Wer erzählt den so einen hanebüchenen Blödsinn ??? Wie sagte Papa oft: "Wenn du nicht weißt was los ist ... einfach mal Klappe halten."
"OpenText" funktioniert einfach bestens, um UTF-8 (Origin:=65001) zu öffnen ... egal welcher Trenner.
Da nehm ich doch das neue Window gern in Kauf ... die Daten rüberzukopieren und die Datei wieder zu schließen, ist wohl einfacher als ständiges Gebastel an den Daten, die andere Methoden völlig zerschossen eingespielt haben.
Workbooks.OpenText Filename:="E:\Datum_Test.csv", _
Origin:=65001, DataType:=xlDelimited, Comma:=True, Semicolon:=True, _
FieldInfo:=Array(Array(1, 4), Array(2, 1), Array(3, 1)), Local:=True
Sabina
|