Daten aus einer Textdatei einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub lesen() 'ort= Pfad der Datei Open ort For Output As #1 For i = 2 To 6 stext = Cells(i, 2) & Chr(9) & Cells(i, 3) Print #1, stext; Tab(19) '#1, Chr(8) Next i Close #1 MsgBox ("Habe gerade " & i - 2 & " Zeilen in die Datei " & ort & " geschrieben") End Sub

Private Sub schreiben() 'ort= Pfad der Datei Open ort For Input As #1 Do While Not EOF(1) 'Ließt die Datei zeilenweise ein und packe sie in variable oder array Line Input #1, zeile(pos) Cells(pos + 2, 1) = zeile(pos) 'Zahlen mit val(zeile(pos)) pos = pos + 1 Loop Close #1 MsgBox ("Du hast " & pos & " Zeilen in Deiner Datei! ") End Sub

Hey sly !
Du mir leid das ich erst jetzt antworte aber irgendwie habe ich keine emailbenachrichtigung bekommen :-(
Kannst mir die makros noch ein wenig genauer erklaeren:
1.
---------------------------


Private Sub lesen()
'ort= Pfad der Datei
Open ort For Output As #1 ? Was hat das #1 zu bedeuten?
For i = 2 To 6  ? iterierst du hier uber die zeilen (also zeile 2 bis 6) im dokument
stext = Cells(i, 2) & Chr(9) & Cells(i, 3) ? Chr(9) steht wofuer
Print #1, stext; Tab(19) ? Tab(19) was hat das zu sagen?
'#1, Chr(8) ? Chr(8) steht wofuer
Next i
Close #1
MsgBox ("Habe gerade " & i - 2 & " Zeilen in die Datei " & ort & " geschrieben")
End Sub

---------------------------------------
2.
------------------------------------


Private Sub schreiben()
'ort= Pfad der Datei
Open ort For Input As #1 ? was hat #1 zu sagen
Do While Not EOF(1)
'Ließt die Datei zeilenweise ein und packe sie in variable oder array
Line Input #1, zeile(pos)
Cells(pos + 2, 1) = zeile(pos)
'Zahlen mit val(zeile(pos))
pos = pos + 1
Loop
Close #1
MsgBox ("Du hast " & pos & " Zeilen in Deiner Datei! ")
End Sub

----------------------------------------
Ich waere dir sehr dankbar
Gruss horst

Hallo Horst,
sehe gerade, daß die Frage schon ne Weile offen ist und misch mich deswegen mal ein.
Hier zwei Möglichkeiten zum Einlesen, wobei für Dich sicherlich die 2. besser ist:

Dim s As String
Dim zeilen() As String
'1. Variante- Komplette Datei in ein Datenfeld einlesen
Open "e:\privat\test.xml" For Binary As #1
  s = Space(LOF(1))
  Get #1, , s
Close #1
zeilen = Split(s, vbCrLf)
MsgBox zeilen(1) '2. Zeile ausgeben (1. Zeile hat Index 0)

'oder - Zeilenweise einlesen
Open "e:\privat\test.xml" For Input As #1
  Line Input #1, s '1. Zeile einlesen
  Line Input #1, s '2. Zeile einlesen
Close #1
MsgBox s

Einen String wandelst Du mit CInt(DeinText) in einen Integer um, siehe "Typumwandlungsfunktionen". Wenn es keine Zahl ist, gibts einen Fehler! Den kannst Du vorher mit IsNumeric(DeinText) abfangen.
Da der Wert in Zelle aber wie die Werte in der Textdatei auch Text ist, mußt Du eigentlich keine Typen umwandeln.
Gruss- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

Daten aus einer Textdatei einlesen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus einer Textdatei einlesen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread