Innehållsförteckning
Denna handledning visar hur du använder OpenTextFile -metoden för FileSystemObject.
Öppna en textfil
Denna lektion använder FileSystemObject. För att kunna använda det måste du ange en referens till VB-skriptets körtidsbibliotek. Se här för mer information.
Du kan öppna en befintlig textfil för läsning:
1 | Ställ in FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
och klistra sedan in dess innehåll i det aktuella kalkylbladets första cell, t.ex.
12345678910 | Sub FSOReadFromTextFile ()Dim FSO som nytt filsystemsystemAnge FSO = CreateObject ("Scripting.FileSystemObject")Ställ in FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringAvsluta Sub |
För fler alternativ med förläsningsläge, se här.
I läget ForWriting kan du ersätta en befintlig fils innehåll med ny data men du kan inte läsa från filen.
123456789 | Sub FSOWriteToTextFile ()Dim FSO som nytt filsystemsystemAnge FSO = CreateObject ("Scripting.FileSystemObject")Ställ in FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "testrad"FileToWrite.CloseAvsluta Sub |
För fler alternativ med ForWriting -läget se här.
I läget ForAppending kan du skriva till slutet av filen. Du kan inte läsa från den här filen.
123456789 | Sub FSOAppendToTextFile ()Dim FSO som nytt filsystemsystemAnge FSO = CreateObject ("Scripting.FileSystemObject")Ställ in FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "bifogat innehåll"FileToAppend.CloseAvsluta Sub |