Spisie treści
Ten samouczek zademonstruje, jak używać metody OpenTextFile obiektu FileSystemObject.
Otwórz plik tekstowy
Ta lekcja wykorzystuje obiekt FileSystemObject. Aby z niego skorzystać, musisz ustawić odwołanie do biblioteki wykonawczej skryptu VB. Zobacz tutaj, aby uzyskać więcej informacji.
Możesz otworzyć istniejący plik tekstowy do czytania:
1 | Ustaw FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) |
a następnie wklej jego zawartość do pierwszej komórki bieżącego arkusza, np.:
12345678910 | Sub FSOReadFromTextFile()Dim FSO jako nowy obiekt systemu plikówUstaw FSO = CreateObject("Scripting.FileSystemObject")Ustaw FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets(1).Range("A1").Value = TextStringNapis końcowy |
Więcej opcji w trybie ForReading znajdziesz tutaj.
W trybie ForWriting możesz zastąpić zawartość istniejącego pliku nowymi danymi, ale nie możesz czytać z pliku.
123456789 | Sub FSOWriteToTextFile()Dim FSO jako nowy obiekt systemu plikówUstaw FSO = CreateObject("Scripting.FileSystemObject")Ustaw FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)FileToWrite.Write "linia testowa"FileToWrite.CloseNapis końcowy |
Więcej opcji w trybie ForWriting znajdziesz tutaj.
W trybie ForAppending możesz pisać do końca pliku. Nie możesz czytać z tego pliku.
123456789 | Sub FSODołącz do pliku tekstowego()Dim FSO jako nowy obiekt systemu plikówUstaw FSO = CreateObject("Scripting.FileSystemObject")Ustaw FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending)FileToAppend.Write "dołączona zawartość"PlikDoDołącz.ZamknijNapis końcowy |