VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Daten aus Textdatei gezielt in Zellen übernehmen

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

    


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