VBAでテキストファイルをExcelに読み込む｜実践コード＆自動化手順解説

以下のようなシーンで利用されます。

1.テキスト形式（CSVやログファイルなど）で保存されたデータをExcelで扱いたい。

2.複数のテキストファイルからデータを自動で取り込んで、集計や分析を行いたい。

3.外部のシステムやアプリケーションから出力されたテキストデータをExcelにインポートして整理したい。

VBAでテキストファイルを読み込み→Excelシートに書き込む手順と注意点

1. Option Explicit
3. Sub OpenTextFile()
4.     Dim filePath As String
5.     Dim fileContent As String
6.     Dim fileNumber As Integer
7.     Dim line As String
8.     Dim i As Long
9.     
10.     ' 開きたいテキストファイルのパスを指定
11.     filePath = "C:\Users\User\Desktop\新しいフォルダー\sample.txt"
12.     
13.     ' ファイル番号を取得
14.     fileNumber = FreeFile
15.     
16.     ' テキストファイルを開く（読み取り専用モード）
17.     Open filePath For Input As fileNumber
18.     
19.     i = 1 ' 行番号の初期化
20.     
21.     ' ファイルの中身を1行ずつ読み込み
22.     Do Until EOF(fileNumber)
23.         Line Input #fileNumber, line ' 1行ずつ読み込む
24.         Cells(i, 1).Value = line ' 読み込んだ内容をセルに書き込む
25.         i = i + 1 ' 次の行へ
26.     Loop
27.     
28.     ' ファイルを閉じる
29.     Close fileNumber
30.     
31.     MsgBox "テキストファイルの読み込みが完了しました！"
32. End Sub

ExcelVBAを使ってテキストファイルを開くことで、他のシステムやアプリケーションから出力されたデータを簡単にExcelに取り込み、処理や分析に活用できます。ファイルの取り扱い時にはエラーハンドリングやファイルパスの指定に注意しましょう。