Turinys
Ši pamoka parodys, kaip sukurti tekstinį failą naudojant VBA.
Sukurkite teksto failą
Šioje pamokoje naudojamas „FileSystemObject“. Norėdami jį naudoti, turėsite nustatyti nuorodą į VB scenarijaus vykdymo laiko biblioteką.
Norėdami sukurti teksto failą, galite naudoti šį kodą su „CreateTextFile“ metodas.
| 12345678 | Sub FSOCreateTextFile ()Dim FSO kaip objektasNustatykite FSO = CreateObject ("Scripting.FileSystemObject")Pritemdyti teksto failą kaip objektąNustatykite TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.txt")Pabaiga Sub |
Neprivalomus argumentus galite perduoti „CreateTextFile“ metodui:
- Jei nustatysite argumentą „perrašyti“ į „true“, jau esamas failas taip pat gali būti perrašytas.
- Nustačius „Unicode“ argumentą teisingą, sukuriamas Unicode failas, kitaip (arba jei argumentas praleistas) rezultatas bus ASCII failas.
Šiame pavyzdyje esamas „TestFile.txt“ bus perrašytas naudojant „Unicode“ failą:
| 1 | Nustatykite TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.txt", tiesa, tiesa) |
Rašymas į teksto failą
Sukūrę teksto failą, galite įrašyti tekstą į failą naudodami vieną kodo eilutę:
| 1 | TextFile.Write "turinys" |
Spustelėkite nuorodą, kad sužinotumėte daugiau apie rašymą į tekstinius failus naudojant „Write“, „WriteLine“, „WriteBlankLines“ metodus.
