Microsoft Office Tutorials and References
In Depth Information
9 Externe Daten
Sub ZeilenLesen()
Dim Zeile As String
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
On Error GoTo Fehler
' Datei öffnen zum Lesen
Open ThisWorkbook.Path & "\ein.txt" For Input As 1
i=1
' Solange bis Datei-Ende
Do Until EOF(1)
' Zeile lesen
Line Input #1, Zeile
Cells(i, 1).Value = Zeile
i=i+1
Loop
' Datei schließen
Close 1
Exit Sub
Fehler:
MsgBox (Err.Description)
End Sub
Das Ergebnis:
Abbildung 9.2
Importierte Zeilen
Zur Erläuterung:
Die Anweisung Open dient zum Öffnen von Dateien. Im vorliegenden
Beispiel wird die Datei ein.txt geöffnet. Beide Dateien, also die Excel-
Datei mit diesem Importprogramm und die Textdatei mit den Daten,
befinden sich im gleichen Verzeichnis.
Open
Search JabSto ::




Custom Search