Vba を使用してテキスト ファイルを開く方法 (例付き)

VBA のOpenTextFileメソッドを使用すると、特定のファイル パスからテキスト ファイルを開くことができます。

このメソッドを実際に使用する一般的な方法は次のとおりです。

 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というテキスト ファイルがデスクトップ上にあり、VBA を使用して Excel で読み取りたいとします。

ファイルの内容は次のとおりです。

VBA を使用してこのファイルを読み取る前に、まず VB エディターでMicrosoft Scripting Runtime を有効にする必要があります。

これを行うには、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を使用してファイルを削除する方法