Open Dat for input as #1 klappt nicht so recht
16.05.2005 14:04:50
Reinhard
als .txt liegen Daten so vor:
MessreiheC:\Verbrauch_08-04-2005_10-25-14.asc
Anzahl Kanäle5
Datum;Uhrzeit;Wert1;m ;
15.04.2005;10:00:00;783586,69
15.04.2005;11:00:00;784144,56
15.04.2005;12:00:00;784653,06
15.04.2005;13:00:00;785156,69
dieser Codeschnipsel:
DatNr = FreeFile
Open dat For Input As #DatNr
While Not EOF(DatNr)
'Input #DatNr, cstr(Satz)
Input #DatNr, Satz
zei = zei + 1
Cells(zei, 1) = Satz
Wend
machtdaraus:
MessreiheC:\Verbrauch_08-04-2005_10-25-14.asc
Anzahl Kanäle5
Datum;Uhrzeit;Wert1;m ;
15,04 EUR
69
15,04 EUR
56
15,04 EUR
6
15,04 EUR
69
15,04 EUR
56
15,04 EUR
44
Okay, ich umgehe es indem ich mir damit behelfe:
Workbooks.OpenText Filename:="E:\download\22573.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range("A4").Select
Drei Fragen dazu:
a) wie kann ich korrekt diese Daten per Input einlesen?
b) Workbooks.OpenText eröffnet eine neue Datei, okay, ich kann mir die Daten von da rüberkopieren, aber wie kriege ich sie direkt in die Ausgangsdatei, vermisse da irgendwie den Import-Befehl o.ä.
c) Wieso wird cstr(Satz) nicht angenommen?
Danke
Gruß
Reinhard