Microsoft Office Tutorials and References
In Depth Information
9.1.2 Import von Datensätzen
Abbildung 9.3
Textdatei mit CSV-Datensätzen
Die Textdatei kann die Dateiendung .txt haben. Häufig wird auch die
Dateiendung .csv verwendet. Zum Einlesen der Zeilen kommt das Zerle-
gen der Zeilen in die einzelnen Daten hinzu. Dies wird mit der bereits
bekannten Funktion Split() durchgeführt. Anschließend werden die
Daten übersichtlich auf einem Tabellenblatt angeordnet:
Split()
Sub DatensaetzeLesen()
Dim Zeile As String
Dim T() As String
Dim i As Integer, k As Integer
ThisWorkbook.Worksheets("Tabelle2").Activate
On Error GoTo Fehler
' Datei öffnen zum Lesen
Open ThisWorkbook.Path & "\eindaten.txt" _
For Input As 1
i=1
' Solange bis Datei-Ende
Do Until EOF(1)
' Zeile lesen
Line Input #1, Zeile
' Zeile zerlegen
T = Split(Zeile, ";")
Fork=0ToUBound(T)
Cells(i, k + 1).Value = T(k)
Next k
i=i+1
Loop
' Datei schließen
Close 1
Range("A:E").Columns.AutoFit
Search JabSto ::




Custom Search