Gruppe
Extern
Problem
Wie kann ich Daten aus einer Textdatei gezielt in bestimmte Zellen eines Arbeitsblattes schreiben lassen? Der Feldseparator ist das Komma.
StandardModule: basMain
Sub TextImport()
Dim arr(1 To 6) As String
Dim iFile As Integer, iCounter As Integer
Dim sFile As String
sFile = Application.Path & "\texttest.txt"
iFile = FreeFile
Open sFile For Output As iFile
Print #iFile, "Zeile 1, Zeile 2, Zeile 3, Zeile 4, Zeile 5, Zeile 6"
Close
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, arr(1), arr(2), arr(3), arr(4), arr(5), arr(6)
Loop
Close
Kill sFile
For iCounter = 1 To 6
Cells(iCounter, 1).Value = arr(iCounter)
Next iCounter
End Sub