Inhaltsverzeichnis
Dieses Tutorial zeigt, wie Sie eine Textdatei mit VBA erstellen.
Erstellen Sie eine Textdatei
Diese Lektion verwendet das FileSystemObject. Um es zu benutzen, Sie müssen einen Verweis auf die VB-Skript-Laufzeitbibliothek festlegen.
Um eine Textdatei zu erstellen, können Sie diesen Code unten mit verwenden CreateTextFile-Methode.
12345678 | Sub-FSOCreateTextFile()FSO als Objekt dimmenFSO setzen = CreateObject("Scripting.FileSystemObject")Dim TextFile As ObjectSet TextFile = FSO.CreateTextFile("C:\Test\TestFile.txt")End Sub |
Sie können optionale Argumente an die CreateTextFile-Methode übergeben:
- Wenn Sie das Argument „overwrite“ auf true setzen, kann auch eine bereits vorhandene Datei überschrieben werden.
- Wird das Argument „unicode“ auf true gesetzt, wird eine Unicode-Datei erstellt, andernfalls (oder wenn das Argument weggelassen wird) ist das Ergebnis eine ASCII-Datei.
Im folgenden Beispiel wird eine vorhandene TestFile.txt mit einer Unicode-Datei überschrieben:
1 | Set TextFile = FSO.CreateTextFile("C:\Test\TestFile.txt", True, True) |
In Textdatei schreiben
Nachdem Sie eine Textdatei erstellt haben, können Sie mit einer einzigen Codezeile Text in die Datei schreiben:
1 | TextFile.Write "Inhalt" |
Klicken Sie auf den Link, um mehr über das Schreiben in Textdateien mit den Methoden Write, WriteLine, WriteBlankLines zu erfahren.