Цей підручник покаже, як читати текстовий файл у рядку у VBA.
Ми можемо читати текстовий файл рядок за рядком або як цілий файл.
Прочитайте весь текстовий файл у рядок
Текст у текстовому файлі зазвичай складається з кількох рядків, розділених роздільниками. Це можуть бути кома (“,”), кома з пробілом (“,”), крапка з комою (“;”), крапка з комою з пробілом (“;”), пробіл (““), вкладка (vbTab ) або в рідкісних випадках будь -який інший символ, наприклад тильда (~). Рядки зазвичай розділені розривом рядка (vbCRLF).
Найпростіший спосіб прочитати весь текстовий файл у VBA - це запустити такий код, який розмістить весь вміст текстового файлу у рядковій змінній. Ця процедура використовує оператор VBA Open та функцію VBA FreeFile.
| 12345678910 | Sub ReadFile ()Затемніть iTxtFile як ціле числоDim strFile As StringЗатемнити strFileText як рядокstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileВідкрийте strFile для введення як FreeFilestrFileText = Вхідні дані (LOF (iTxtFile), iTxtFile)Закрийте iTxtFileEnd Sub |
Ми також можемо читати текстовий файл у VBA за допомогою FileSystemObject. У наведеному нижче коді ми використовували пізнє прив’язування до об’єкта файлової системи.
| 1234567891011 | Sub ReadTextFile ()Затемнити strText як рядокDim FSO як об'єктDim TSO As ObjectВстановити FSO = CreateObject ("Scripting.FileSystemObject")Встановіть TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ЗакритиВстановити TSO = НічогоВстановити FSO = НічогоEnd Sub |
Ми також можемо використовувати раннє прив’язування в коді та оголосити об’єкт файлової системи, створивши в нашому проекті Excel посилання на об’єкт файлової системи.
| 1234567891011 | Sub ReadTextFile ()Затемнити strText як рядокЗатемнити FSO як новий FileSystemObjectDim TSO As ObjectВстановити FSO = CreateObject ("Scripting.FileSystemObject")Встановіть TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO.ЗакритиВстановити TSO = НічогоВстановити FSO = НічогоEnd Sub |
