Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Open Dat for input as #1 klappt nicht so recht

Open Dat for input as #1 klappt nicht so recht
16.05.2005 14:04:50
Reinhard
Hallo Wissende,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
zu 1.
16.05.2005 14:15:03
Christoph
Hallo Reinhard,
mit
Line Input #DatNr, Satz
liest du die gesamte Zeile ein. Gruß Christoph
ahso, danke dir o.w.T.
16.05.2005 15:03:06
Reinhard
AW: ahso, danke dir o.w.T.
17.05.2005 08:30:30
MichaV
Moin,
hast offen gelassen...
Line Input dürfte ja Deine größten Sorgen beseitigt haben.
zu b) guck mal unter QueryTables.Add
zu c) cstr() ist eine Funktion. Mit Input #1 liest Du Werte in eine Variable ein, in eine Funktion kannst Du nichts einlesen.
Gruß- Micha
aha, danke dir o.w.T.
17.05.2005 13:50:24
Reinhard
Anzeige

57 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige