VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Textdateien auslesen und in Werte in Zellen eintragen

Gruppe

Extern

Bereich

TextImport

Thema

Textdateien auslesen und in Werte in Zellen eintragen

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

    


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