Sadržaj
Ovaj će vodič pokazati kako se koristi metoda OpenTextFile FileSystemObject.
Otvorite tekstualnu datoteku
Ova lekcija koristi FileSystemObject. Da biste ga mogli koristiti, morat ćete postaviti referencu na biblioteku vremena izvođenja VB skripte. Za više informacija pogledajte ovdje.
Postojeću tekstualnu datoteku možete otvoriti za čitanje:
1 | Postavi FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
a zatim zalijepite njegov sadržaj u prvu ćeliju trenutnog radnog lista, npr .:
12345678910 | Pod FSOReadFromTextFile ()Zatamnite FSO kao novi FileSystemObjectPostavi FSO = CreateObject ("Scripting.FileSystemObject")Postavi FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringKraj podm |
Za više opcija s načinom ForReading pogledajte ovdje.
U načinu ForWriting sadržaj postojeće datoteke možete zamijeniti novim podacima, ali ne možete čitati iz datoteke.
123456789 | Pod FSOWriteToTextFile ()Zatamnite FSO kao novi FileSystemObjectPostavi FSO = CreateObject ("Scripting.FileSystemObject")Postavi FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testna linija"FileToWrite.CloseKraj podm |
Za više opcija s načinom ForWriting pogledajte ovdje.
U načinu ForAppending možete pisati do kraja datoteke. Ne možete čitati iz ove datoteke.
123456789 | Sub FSOAppendToTextFile ()Zatamnite FSO kao novi FileSystemObjectPostavi FSO = CreateObject ("Scripting.FileSystemObject")Postavi FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "priloženi sadržaj"FileToAppend.CloseKraj podm |