Datum aus TXT Datei importieren
susanne
DECIMALSEPARATOR;,
DATESEPARATOR;.
SHORTDATEFORMAT;d.M.yyyy
TIMESEPARATOR;:
TIMEAMSTRING;
TIMEPMSTRING;
LONGTIMEFORMAT;hh:mm:ss
die Daten zeilen sehen so aus:
VAL;3.7.2009 11:52:20;3,00;
Es gelingt mir einfach nicht mit dem
Workbooks.OpenText
die Datumzeile zu importieren,
um daraus eine x/y-Diaframm zu erstellen.
Ich sehe zwar das richtige Format,
und kann es sogar mit:
For Each c In Worksheets(Str2).Range(Puffer)
c.Select
ActiveCell.NumberFormat = "d/m/yyyy h:mm:ss"
umwandeln, aber wenn ich dann eine x-Y Grafik erstellen will,
wird die Datumspalte nicht erkannt,
sondern die Datenpunkte werden einfach nur aufgezählt.
Seltsamerweise erfolgt eine Erkennung, nachdem ich in der Zelle
einen Doppelklick ausgeführt habe.
Multiplizieren mit 1, wie in der Hilfe beschrieben funktioniert nicht.
Kann mir da jemand weiterhelfen?
Hier mal meine Open-funktion:
.....................................
Workbooks.OpenText Filename:=Verzeichnissave & "\" & Dateinamedia _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2) _
, Array(2, 3), Array(3, 1)), DecimalSeparator:=",", _
TrailingMinusNumbers:=False
......................................