Gruppe
Extern
Bereich
TextImport
Thema
Daten aus Textdatei gezielt in Zellen übernehmen
Problem
Wie kann ich Daten aus einer Textdatei gezielt in bestimmte Zellen eines Arbeitsblattes schreiben lassen? Der Feldseparator ist das Komma.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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