Cuprins
Acest tutorial va arăta cum să creați un fișier text cu VBA.
Creați un fișier text
Această lecție folosește FileSystemObject. Pentru a-l folosi, va trebui să setați o referință la biblioteca de execuție a scriptului VB.
Pentru a crea un fișier text, puteți utiliza acest cod de mai jos cu Metoda CreateTextFile.
12345678 | Sub FSOCreateTextFile ()Dim FSO ca obiectSetați FSO = CreateObject ("Scripting.FileSystemObject")Reduceți fișierul text ca obiectSetați TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.txt")Sfârșitul Sub |
Puteți transmite argumente opționale metodei CreateTextFile:
- Dacă setați argumentul „suprascrie” la adevărat, poate fi suprascris și un fișier deja existent.
- Setând argumentul „unicode” adevărat, se creează un fișier unicode, altfel (sau dacă argumentul este omis), rezultatul va fi un fișier ASCII.
În exemplul următor, un TestFile.txt existent va fi suprascris cu un fișier unicode:
1 | Setați TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.txt", True, True) |
Scrierea în fișier text
După crearea unui fișier text puteți scrie text în fișier folosind o singură linie de cod:
1 | TextFile.Write "content" |
Faceți clic pe link pentru a afla mai multe despre scrierea în fișiere text folosind metodele Write, WriteLine, WriteBlankLines.