Cuprins
Acest tutorial va arăta cum să utilizați metoda OpenTextFile a FileSystemObject.
Deschideți un fișier text
Această lecție folosește FileSystemObject. Pentru a-l utiliza, va trebui să setați o referință la biblioteca de execuție a scriptului VB. Vedeți aici pentru mai multe informații.
Puteți deschide un fișier text existent pentru citire:
1 | Setați FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
și apoi lipiți conținutul său în prima celulă a foii de lucru curente, de exemplu:
12345678910 | Sub FSOReadFromTextFile ()Dim FSO ca nou FileSystemObjectSetați FSO = CreateObject ("Scripting.FileSystemObject")Setați FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringSfârșitul Sub |
Pentru mai multe opțiuni cu modul ForReading, consultați aici.
În modul ForWriting puteți înlocui conținutul unui fișier existent cu date noi, dar nu puteți citi din fișier.
123456789 | Sub FSOWriteToTextFile ()Dim FSO ca nou FileSystemObjectSetați FSO = CreateObject ("Scripting.FileSystemObject")Setați FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "test line"FileToWrite.CloseSfârșitul Sub |
Pentru mai multe opțiuni cu modul ForWriting vezi aici.
În modul ForAppending puteți scrie la sfârșitul fișierului. Nu puteți citi din acest fișier.
123456789 | Sub FSOAppendToTextFile ()Dim FSO ca nou FileSystemObjectSetați FSO = CreateObject ("Scripting.FileSystemObject")Setați FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "conținut adăugat"FileToAppend.CloseSfârșitul Sub |