Як відкрити текстовий файл за допомогою vba (з прикладом)

Ви можете використовувати метод OpenTextFile у VBA, щоб відкрити текстовий файл за певним шляхом.

Ось поширений спосіб використання цього методу на практиці:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Цей конкретний макрос читає текстовий файл під назвою MyTextFile.txt , розташований на робочому столі мого комп’ютера, і відображає вміст файлу в клітинці A1 .

У наступному прикладі показано, як використовувати цей синтаксис для читання текстового файлу на практиці.

Приклад: як відкрити текстовий файл за допомогою VBA

Припустімо, у нас є текстовий файл під назвою MyTextFile.txt , розташований на робочому столі, який ми хочемо прочитати в Excel за допомогою VBA.

Ось вміст файлу:

Перш ніж використовувати VBA для читання цього файлу, ми повинні спочатку ввімкнути Microsoft Scripting Runtime у редакторі VB.

Для цього відкрийте редактор VB, клацніть Інструменти , потім клацніть Посилання :

У новому вікні, що з’явиться, прокрутіть вниз, доки не побачите Microsoft Scripting Runtime , і поставте прапорець біля нього. Потім натисніть OK .

Тоді ми можемо створити такий макрос для читання текстового файлу:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Після виконання цього макросу вміст текстового файлу під назвою MyTextFile.txt буде відображено в клітинці A1 :

Зауважте, що вміст клітинки A1 відповідає вмісту текстового файлу.

Примітка . Ви можете знайти повну документацію для методу OpenTextFile тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як створити папки за допомогою VBA
Як видалити папки за допомогою VBA
Як видалити файли за допомогою VBA