VBA: Textdateien lesen und schreiben

Beim Arbeiten mit VBA sind Textdateien ausgesprochen praktisch, um Informationen zu speichern oder auszutauschen.

Auch in Zeiten spezialisierter Dateiformate gibt es oft noch Gelegenheiten, bei denen Sie einfache Textdateien schreiben oder lesen. Das ist mit den richtigen Befehlen einfach durchzuführen.

Mit einer Do/Until-Schleife und der EOF()-Funktion lässt sich eine Textdatei zeilenweise auslesen.

Im vorigen Beispiel haben Sie genau den Inhalt der ersten Zeile ermittelt, aber selbstverständlich können Sie auch die komplette Text-Datei auslesen. Dazu brauchen Sie eine Do/Loop-Schleife sowie die EOF()-Funktion (EOF steht für End Of File), die True wird, sobald das Dateiende erreicht ist:

Beim Schreiben einer Textdatei müssen Sie angeben, ob Sie diese komplett neu erzeugen oder an eventuell vorhandene Daten anhängen wollen.

Selbst für Datenbanken, bei denen Daten ja typischerweise in Tabellen gespeichert werden, kann es sinnvoll sein, auf Textdateien zurückzugreifen, etwa wenn die Inhalte per eMail versendet werden sollen. Oder es geht um Protokolle für den Ablauf eines VBA-Makros oder den Zugriff auf Excel-Daten, die unabhängig von der Code-Datei bleiben sollen. Beim Schreiben von Textdateien gibt es ebenfalls zwei Möglichkeiten:

Mit dem Zusatz For Append werden neue Zeilen auch an bestehende Dateien angehängt.

Wenn Sie die bisherigen Inhalte in der Datei behalten wollen, müssen Sie statt For Input den Zusatz For Append wählen. Dann wird die Zeile an den vorhandenen Inhalt angehängt: