VBA Tipp: Textdatei zeilenweise auslesen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte den Inhalt einer Textdatei zeilenweise auslesen, und im Direktenster anzeigen lassen.

Lösung

Das geht mit folgendem VBA-Code:

 Dim Zeile As String
 Dim ZNr As Long
 Dim strPfad As String
 
 'Quelle: www.dbwiki.net oder www.dbwiki.de
 
 strPfad = CurrentProject.Path & "\Meine.txt"
 
 Open strPfad For Input As #1
 
 Do While Not EOF(1)
 
   ZNr = ZNr + 1
   Line Input #1, Zeile
   Debug.Print "Zeile " & ZNr & ": " & Zeile
 
 Loop
 
 Close #1