Зміст
Цей підручник покаже, як використовувати метод OpenTextFile для FileSystemObject.
Відкрийте текстовий файл
У цьому уроці використовується FileSystemObject. Для того, щоб ним користуватися, вам потрібно встановити посилання на бібліотеку виконання сценарію VB. Дивіться тут для отримання додаткової інформації.
Ви можете відкрити існуючий текстовий файл для читання:
| 1 | Встановіть FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
а потім вставити його вміст у першу клітинку поточного робочого аркуша, наприклад:
| 12345678910 | Sub FSOReadFromTextFile ()Затемнити FSO як новий FileSystemObjectВстановити FSO = CreateObject ("Scripting.FileSystemObject")Встановіть FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
Додаткові параметри з режимом ForReading дивіться тут.
У режимі ForWriting ви можете замінити вміст наявного файлу новими даними, але не можете читати з файлу.
| 123456789 | Sub FSOWriteToTextFile ()Затемнити FSO як новий FileSystemObjectВстановити FSO = CreateObject ("Scripting.FileSystemObject")Встановіть FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "тестова лінія"FileToWrite.CloseEnd Sub |
Додаткові параметри з режимом ForWriting дивіться тут.
У режимі ForAppending ви можете писати до кінця файлу. Ви не можете читати з цього файлу.
| 123456789 | Sub FSOAppendToTextFile ()Затемнити FSO як новий FileSystemObjectВстановити FSO = CreateObject ("Scripting.FileSystemObject")Встановіть FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "доданий вміст"FileToAppend.CloseEnd Sub |
