Obsah
Tento tutoriál předvede, jak používat metodu OpenTextFile nástroje FileSystemObject.
Otevřete textový soubor
Tato lekce používá FileSystemObject. Abyste jej mohli používat, budete muset nastavit odkaz na knihovnu run-time skriptu VB. Další informace naleznete zde.
Můžete otevřít existující textový soubor pro čtení:
| 1 | Nastavit FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
a poté vložte jeho obsah do první buňky aktuálního listu, např .:
| 12345678910 | Sub FSOReadFromTextFile ()Dim FSO jako nový FileSystemObjectNastavit FSO = CreateObject ("Scripting.FileSystemObject")Nastavit FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
Další možnosti s režimem ForReading naleznete zde.
V režimu ForWriting můžete nahradit obsah stávajícího souboru novými daty, ale ze souboru nemůžete číst.
| 123456789 | Sub FSOWriteToTextFile ()Dim FSO jako nový FileSystemObjectNastavit FSO = CreateObject ("Scripting.FileSystemObject")Nastavit FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write „testovací řádek“FileToWrite.CloseEnd Sub |
Další možnosti s režimem ForWriting naleznete zde.
V režimu ForAppending můžete zapisovat na konec souboru. Z tohoto souboru nemůžete číst.
| 123456789 | Sub FSOAppendToTextFile ()Dim FSO jako nový FileSystemObjectNastavit FSO = CreateObject ("Scripting.FileSystemObject")Nastavit FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "připojený obsah"FileToAppend.CloseEnd Sub |
