VBA – Textdatei mit OpenTextFile öffnen

In diesem Tutorial zeigen wir Ihnen, wie Sie die OpenTextFile-Methode des FileSystemObjects verwenden können.

Eine Textdatei öffnen

In dieser Lektion wird das FileSystemObject verwendet. Um es verwenden zu können, müssen Sie einen Verweis auf die VB-Skript-Laufzeitbibliothek (Engl. VB script run-time library) setzen. Siehe hier für weitere Informationen.

Sie können eine vorhandene Textdatei zum Lesen öffnen:

Set DateiZumLesen = FSO.OpenTextFile("C:\Test\TestDatei.txt", ForReading)

und dann ihren Inhalt in die erste Zelle des aktuellen Arbeitsblatts einfügen, z. B:

Sub FSOAusTextdateiLesen() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set DateiZumLesen = FSO.OpenTextFile("C:\Test\TestDatei.txt", ForReading)

    TextZeichenkette = DateiZumLesen.ReadAll
    DateiZumLesen.Close
    ThisWorkbook.Sheets(1).Range("A1").Value = TextZeichenkette

End Sub

Weitere Optionen für den ForReading-Modus finden Sie hier.

Im Schreibmodus können Sie den Inhalt einer vorhandenen Datei durch neue Daten ersetzen, aber Sie können nicht aus der Datei lesen.

Sub FSOInTextdateiSchreiben() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set DateiZumSchreiben = FSO.OpenTextFile("C:\Test\TestDatei.txt", ForWriting)

    DateiZumSchreiben.Write "Testzeile"
    DateiZumSchreiben.Close

End Sub

Weitere Optionen für den Schreibmodus finden Sie hier.

Im ForAppending-Modus können Sie am Ende der Datei schreiben. Sie können nicht aus dieser Datei lesen.

Sub FSOAnTextdateiAnfuegen() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set DateiZumAnfuegen = FSO.OpenTextFile("C:\Test\TestDatei.txt", ForAppending)

    DateiZumAnfuegen.Write "angehängter Inhalt"
    DateiZumAnfuegen.Close

End Sub