概要：VBAにおけるテキストファイル読み込みの重要性
Excel VBAを用いた業務自動化において、外部のテキストファイル（.txtや.csvなど）を読み込む処理は、避けては通れない重要なスキルです。特に、ログファイルの解析、他システムから出力されたデータの取り込み、あるいは設定ファイルの読み込みといった場面では、VBAの標準機能である「ファイル入出力（I/O）」の理解が不可欠となります。
その中でも、今回焦点を当てる「Line Input #」ステートメントは、テキストファイルを「1行ずつ」読み込むための最も基本的かつ強力なツールです。大量のデータをメモリに一気に展開するのではなく、行単位で処理を行うことで、メモリ消費を抑えつつ、柔軟なデータ加工を実現できます。本稿では、VBA初心者から中級者へステップアップするために必須となる、Line Input #の仕組みと実践的な活用術を余すところなく解説します。
詳細解説：Line Input # ステートメントの仕組み
Line Input # ステートメントは、シーケンシャルアクセス（順次アクセス）モードで開かれたファイルから、1行単位でデータを読み込み、変数に格納します。このステートメントの最大の特徴は、改行コード（CRLFまたはLF）を検知するまで読み込みを続け、改行コード自体は読み込まずにスキップする点にあります。
利用する際の手順は、以下の5ステップに集約されます。
1. 空いているファイル番号を取得する（FreeFile関数）
2. ファイルを読み取りモードで開く（Openステートメント）
3. ループ処理を用いてEOF（ファイルの終端）まで読み込む（Line Input #）
4. 読み込んだデータに対して必要な処理（文字列操作やセルへの書き込み）を行う
5. ファイルを閉じる（Closeステートメント）
ここで重要なのが「EOF関数」の活用です。EOFはEnd Of Fileの略であり、ファイルの末尾に到達したかどうかを判定します。Line Input #とEOFを組み合わせることで、ファイルサイズが不明な場合でも、最後の1行まで確実に読み込む堅牢なプログラムが作成可能になります。
サンプルコード：テキストファイルを読み込みセルに転送する
以下に、指定されたテキストファイルを読み込み、その内容をA列に順次出力する標準的なサンプルコードを提示します。
Sub ReadTextFileByLine()
Dim filePath As String
Dim fileNum As Integer
Dim textLine As String
Dim rowCounter As Long
' ファイルパスの指定（適宜変更してください）
filePath = ThisWorkbook.Path & "\data.txt"
' ファイルが存在するか確認
If Dir(filePath) = "" Then
MsgBox "ファイルが見つかりません。", vbCritical
Exit Sub
End If
' 空いているファイル番号を取得
fileNum = FreeFile
' 読み取りモードでファイルを開く
Open filePath For Input As #fileNum
rowCounter = 1
' ファイルの終端に達するまでループ
Do Until EOF(fileNum)
' 1行ずつ読み込む
Line Input #fileNum, textLine
' セルに書き込む
Cells(rowCounter, 1).Value = textLine
rowCounter = rowCounter + 1
Loop
' ファイルを閉じる
Close #fileNum
MsgBox "読み込みが完了しました。"
End Sub
このコードのポイントは、`FreeFile`関数を使用している点です。固定の番号（例えば#1）を使用することも可能ですが、他のプログラムやアドインとの競合を避けるため、常にOSから空き番号を割り当ててもらうのがプロの作法です。
実務アドバイス：エラーハンドリングと文字化け対策
実務において、単純な読み込みだけでは不十分なケースが多々あります。ここでは、現場で役立つ3つのアドバイスを共有します。
第一に「エラーハンドリング」です。ファイルが他のプログラムで使用中である場合や、権限がない場合、`Open`ステートメントで実行時エラーが発生します。`On Error GoTo`構文を導入し、ファイルが開けなかった場合の処理を記述しておくことで、マクロの強制終了を防ぐことができます。
第二に「文字コードの問題」です。VBAの`Open`ステートメントは、原則としてANSI（Shift-JIS）形式のファイル読み込みを前提としています。現代のWebシステムから出力されるUTF-8形式のファイルを読み込むと、日本語が文字化けします。UTF-8を扱う場合は、`ADODB.Stream`オブジェクトを使用するのが定石です。Line Input #は、あくまで「レガシーなShift-JIS環境」で最も効率的に動作することを理解しておきましょう。
第三に「処理速度の最適化」です。もし読み込むファイルが数十万行に及ぶ場合、ループ内で毎回`Cells(rowCounter, 1).Value = …`を行うのは非効率です。一度配列に格納してから一括でセルに吐き出す、あるいは`String`型のバッファを工夫することで、実行時間を劇的に短縮できます。
まとめ：Line Input # を使いこなす意義
Line Input # ステートメントは、VBAのファイル操作における「基本の基」でありながら、その応用範囲は非常に広大です。ログの監視、CSVの簡易的な解析、あるいは旧来の業務システムとの連携において、この技術は今なお現役の必須知識です。
プログラミングにおいて「なぜその命令を使うのか」という根拠を明確にすることは非常に重要です。Line Input #を選択する理由は、メモリ効率の良さと、1行単位で制御できる柔軟性にあります。
今回紹介したコードをベースに、特定のキーワードを含む行だけを抽出するフィルター処理を加えたり、読み込んだ文字列を`Split`関数で分解してデータベースとして活用したりと、自身の業務に合わせてカスタマイズしてみてください。VBAのファイル操作をマスターすることで、あなたのExcelは単なる表計算ソフトを超え、強力なデータ処理ツールへと進化するはずです。
次回のステップとしては、今回触れた「文字コード」の壁を越えるための`ADODB.Stream`の学習や、逆に「書き込み（Print #）」の技術を習得することをお勧めします。日々の業務効率化に向けて、ぜひこの技術を武器にしてください。
