Turinys
Ši pamoka parodys, kaip naudoti „FileSystemObject“ „OpenTextFile“ metodą.
Atidarykite teksto failą
Šioje pamokoje naudojamas „FileSystemObject“. Norėdami jį naudoti, turėsite nustatyti nuorodą į VB scenarijaus vykdymo laiko biblioteką. Daugiau informacijos rasite čia.
Galite atidaryti esamą teksto failą skaitymui:
1 | Nustatykite FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
ir įklijuokite jo turinį į pirmąjį dabartinio darbalapio langelį, pvz .:
12345678910 | Sub FSOReadFromTextFile ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")Nustatykite FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CoseThisWorkbook.Sheets (1). Range ("A1"). Value = TextStringPabaiga Sub |
Daugiau parinkčių su „ForReading“ režimu rasite čia.
„ForWriting“ režimu galite pakeisti esamo failo turinį naujais duomenimis, bet negalite skaityti iš failo.
123456789 | Antrinis FSOWriteToTextFile ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")Nustatykite FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)„FileToWrite.Write“ „bandymo eilutė“FileToWrite.UždarytiPabaiga Sub |
Daugiau „ForWriting“ režimo parinkčių rasite čia.
„ForAppending“ režimu galite rašyti iki failo pabaigos. Jūs negalite skaityti iš šio failo.
123456789 | FSOAppendToTextFile ()Pritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")Nustatykite FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write „pridėtas turinys“FileToAppend.CosePabaiga Sub |