Как открыть текстовый файл с помощью 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 , и установите флажок рядом с ним. Затем нажмите ОК .

Затем мы можем создать следующий макрос для чтения текстового файла:

 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