Jak otworzyć plik tekstowy za pomocą vba (z przykładem)

Możesz użyć metody OpenTextFile w VBA, aby otworzyć plik tekstowy z określonej ścieżki pliku.

Oto powszechny sposób wykorzystania tej metody w praktyce:

 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

To konkretne makro odczytuje plik tekstowy o nazwie MyTextFile.txt znajdujący się na pulpicie mojego komputera i wyświetla zawartość pliku w komórce A1 .

Poniższy przykład pokazuje, jak w praktyce wykorzystać tę składnię do odczytu pliku tekstowego.

Przykład: Jak otworzyć plik tekstowy za pomocą VBA

Załóżmy, że mamy na pulpicie plik tekstowy o nazwie MyTextFile.txt , który chcielibyśmy odczytać w Excelu za pomocą VBA.

Oto zawartość pliku:

Przed użyciem VBA do odczytania tego pliku musimy najpierw włączyć Microsoft Scripting Runtime w edytorze VB.

Aby to zrobić, otwórz edytor VB, następnie kliknij Narzędzia , a następnie kliknij Referencje :

W nowym oknie, które się pojawi, przewiń w dół, aż zobaczysz Microsoft Scripting Runtime i zaznacz pole obok niego. Następnie kliknij OK .

Następnie możemy utworzyć następujące makro do odczytu pliku tekstowego:

 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

Po wykonaniu tego makra zawartość pliku tekstowego o nazwie MyTextFile.txt zostanie wyświetlona w komórce A1 :

Zauważ, że zawartość komórki A1 jest zgodna z zawartością pliku tekstowego.

Uwaga : Pełną dokumentację metody OpenTextFile można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak tworzyć foldery za pomocą VBA
Jak usunąć foldery za pomocą VBA
Jak usunąć pliki za pomocą VBA