Thema: Daten aus Textdatei gezielt in Zellen übernehmen

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

Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport