Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textdateien auslesen und in Werte in Zellen eintragen

Gruppe

TextImport

Problem

Aus den Textdateien "Text1.txt" bis "Text3.txt" im Verzeichnis dieser Arbeitsmappen sollen jeweils 3 Zeilen ausgelesen und in einem Tabellenblatt eingetragen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub Auslesen()
   Dim iCounter As Integer, iLine As Integer
   Dim sTxt As String
   Close
   Range("A1").Value = "Name"
   Range("B1").Value = "Vorname"
   Range("C1").Value = "Strasse"
   Rows(1).Font.Bold = True
   For iCounter = 1 To 3
      iLine = 0
      Open ThisWorkbook.Path & "\text" & iCounter & ".txt" For Input As #1
      For iLine = 1 To 3
         Line Input #1, sTxt
         sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, " "))
         Cells(iCounter + 1, iLine).Value = sTxt
      Next iLine
      Close
   Next iCounter
End Sub