In diesem Tutorial wird gezeigt, wie Sie die OpenTextFile-Methode des FileSystemObject verwenden.
Öffnen Sie eine Textdatei
Diese Lektion verwendet das FileSystemObject. Um es zu verwenden, müssen Sie einen Verweis auf die VB-Skript-Laufzeitbibliothek festlegen. Weitere Informationen finden Sie hier.
Sie können eine vorhandene Textdatei zum Lesen öffnen:
| 1 | Set FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) |
und fügen Sie dann den Inhalt in die erste Zelle des aktuellen Arbeitsblatts ein, z. B.:
| 12345678910 | Unter FSOReadFromTextFile()Dim FSO als neues FileSystemObjectFSO setzen = CreateObject("Scripting.FileSystemObject")Set FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets(1).Range("A1").Value = TextStringEnd Sub |
Weitere Optionen mit dem ForReading-Modus finden Sie hier.
Im ForWriting-Modus können Sie den Inhalt einer vorhandenen Datei durch neue Daten ersetzen, jedoch nicht aus der Datei lesen.
| 123456789 | Sub FSOWriteToTextFile()Dim FSO als neues FileSystemObjectFSO setzen = CreateObject("Scripting.FileSystemObject")Set FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)FileToWrite.Write "Testzeile"FileToWrite.CloseEnd Sub |
Weitere Optionen mit dem ForWriting-Modus finden Sie hier.
Im ForAppending-Modus können Sie an das Ende der Datei schreiben. Sie können aus dieser Datei nicht lesen.
| 123456789 | Unter FSOAppendToTextFile()Dim FSO als neues FileSystemObjectFSO setzen = CreateObject("Scripting.FileSystemObject")Set FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending)FileToAppend.Write "angehängter Inhalt"FileToAppend.CloseEnd Sub |
