wenn du nicht allzu viele Zeilen hast, dann hilft dir eventuell die folgende Funktion:
Es liefert den Inhalt einer Textdatei als Array zurück. Die einzelnen Zeilen kabnnst du dann mit Explode und einem Trennzeichen, wie z.B. Chr(9) für Tab-Sprung in die einzelnen Bestandteile zerlegen...
Function ImportFromFile( sFile As String ) As Variant
REM Eine Import-Funktion für die Praxis...
' # ... Rückgabewert = Array
On Error Goto ErrHandle
ImportFromFile = ""
If sFile <> "" Then
Dim sRow() As String
Dim sTxt As String
Dim fileNum As Integer
Dim counter As Integer
fileNum = Freefile()
counter = -1
' # ... die Datei zum Lesen öffnen...
Open sFile For Input As fileNum
Do While Not Eof( fileNum )
Line Input #fileNum, sTxt
counter = counter + 1
Redim Preserve sRow( 0 To counter )
sRow( counter ) = sTxt
Loop
Close fileNum' # ... schließen
' # ... Array zurückgeben...
ImportFromFile = sRow
Print "Der Import ist abgeschlossen"
End If
Exit Function
ErrHandle:
Close fileNum
Print "Abbruch - es konnte keine Datei geöffnet werden"
Exit Function
End Function