Содержание
В этом руководстве будет показано, как использовать метод OpenTextFile объекта FileSystemObject.
Открыть текстовый файл
В этом уроке используется FileSystemObject. Чтобы использовать его, вам нужно будет установить ссылку на библиотеку времени выполнения сценария VB. Смотрите здесь для получения дополнительной информации.
Вы можете открыть существующий текстовый файл для чтения:
1 | Установите FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
а затем вставьте его содержимое в первую ячейку текущего листа, например:
12345678910 | Подложка FSOReadFromTextFile ()Dim FSO как новый объект FileSystemObjectУстановите FSO = CreateObject ("Scripting.FileSystemObject")Установите FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringКонец подписки |
Дополнительные параметры режима ForReading см. Здесь.
В режиме ForWriting вы можете заменить содержимое существующего файла новыми данными, но не можете читать из файла.
123456789 | Подложка FSOWriteToTextFile ()Dim FSO как новый объект FileSystemObjectУстановите FSO = CreateObject ("Scripting.FileSystemObject")Установите FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write «тестовая строка»FileToWrite.CloseКонец подписки |
Дополнительные параметры режима ForWriting см. Здесь.
В режиме ForAppending вы можете писать в конец файла. Вы не можете читать из этого файла.
123456789 | Подложка FSOAppendToTextFile ()Dim FSO как новый объект FileSystemObjectУстановите FSO = CreateObject ("Scripting.FileSystemObject")Установите FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write «добавленное содержимое»FileToAppend.CloseКонец подписки |