概要：VBAによるファイル読み込みの重要性
Excel VBAを習得する上で、避けて通れない「登竜門」の一つが外部ファイルの読み込みです。日々の業務において、私たちはCSV形式のデータや、他システムから出力されたテキストファイル、あるいはログファイルなど、Excelブック以外の形式を扱う機会が多々あります。これらを手作業で開いてコピー＆ペーストを行うのは、ヒューマンエラーの温床であり、何より非効率の極みです。
本連載第15回では、全4回にわたり「ファイルの読み込み」を徹底的に深掘りします。第1回目となる今回は、最も基本的かつ強力な手法である「FileSystemObject（FSO）」を用いたテキストファイルの読み込みについて解説します。なぜFSOなのか、なぜこの手法がプロフェッショナルな現場で選ばれ続けるのか。その理由を紐解きながら、実践的なコードを構築していきましょう。
詳細解説：FileSystemObjectとは何か
VBAには標準で用意されている「Openステートメント」という古い手法も存在しますが、現代の業務開発において推奨されるのは「FileSystemObject」です。これはWindowsが提供する強力なライブラリで、ファイルの読み書き、フォルダの操作、パスの解析などを直感的なオブジェクト形式で行うことができます。
FSOを活用する最大のメリットは「エラーハンドリングの容易さ」と「パス操作の柔軟性」にあります。例えば、ファイルが存在するかどうかの確認（FileExistsメソッド）や、特定のフォルダ内の全ファイルをループ処理する際の手間が、従来の古い手法と比較して格段に簡略化されます。
今回は、テキストファイルを一行ずつ読み込み、それをイミディエイトウィンドウに出力する、あるいはExcelのセルに転記するプロセスを学びます。読み込みには「OpenTextFileメソッド」を使用します。このメソッドには「読み取り専用（ForReading）」、「書き込み用（ForWriting）」、「追加用（ForAppending）」の3つのモードがあり、今回はデータの抽出が目的であるため、「ForReading」を選択します。
サンプルコード：テキストファイルを読み込む基本構造
以下は、デスクトップ上のテキストファイルを読み込み、その内容をExcelのシートに書き出すためのサンプルコードです。まずはこの基本形を完全に自分のものにしてください。
Sub ReadTextFileSample()
' 必要な変数を定義
Dim fso As Object
Dim ts As Object
Dim filePath As String
Dim lineContent As String
Dim rowCount As Long
' ファイルパスを指定（適宜書き換えてください）
filePath = ThisWorkbook.Path & "\testdata.txt"
' FileSystemObjectを生成
Set fso = CreateObject("Scripting.FileSystemObject")
' ファイルが存在するか確認
If fso.FileExists(filePath) Then
' ファイルを開く
Set ts = fso.OpenTextFile(filePath, 1, False) ' 1はForReading
rowCount = 1
' ファイルの末尾までループ
Do Until ts.AtEndOfStream
lineContent = ts.ReadLine
' セルに書き出し
Cells(rowCount, 1).Value = lineContent
rowCount = rowCount + 1
Loop
' ファイルを閉じる
ts.Close
MsgBox "読み込みが完了しました。"
Else
MsgBox "指定されたファイルが見つかりません。", vbCritical
End If
' メモリ解放
Set ts = Nothing
Set fso = Nothing
End Sub
詳細解説：コードのポイントを徹底分析
上記のコードには、ベテランエンジニアが必ず押さえるべき「作法」が詰め込まれています。
1. CreateObject(“Scripting.FileSystemObject”)
参照設定を行わなくても利用できる「レイトバインディング」という手法を採用しています。これにより、配布先環境での参照設定漏れによるエラーを回避できます。
2. AtEndOfStreamプロパティ
ファイルの読み込み処理において、どこまで読み込めばよいかを判定する最も安全なプロパティです。EOF（End Of File）に達するまで処理を継続するという論理は、どのようなファイルサイズにも対応できる堅牢性を持っています。
3. ts.Close
開いたファイルは必ず閉じる。これはプログラミングの鉄則です。ファイルを開きっぱなしにすると、他のプロセスからのアクセスが拒否されたり、メモリリークの原因となります。
実務アドバイス：大規模データと文字コードへの対処
実務において、読み込むテキストファイルの「文字コード」は最大の壁となります。上記のOpenTextFileメソッドは、基本的に「Shift-JIS」などのレガシーな文字コードには対応していますが、現代の主流である「UTF-8（BOMなし）」を読み込むと文字化けが発生します。
もし、UTF-8ファイルを直接扱いたい場合は、ADODB.Streamオブジェクトを使用する必要があります。これは第3回以降で詳しく解説しますが、まずは「標準的なテキストファイルであればFSOで十分」という感覚を養ってください。
また、数万行を超える大規模なテキストファイルを扱う場合、一行ずつセルに書き込む処理は「Excelの描画更新」により非常に低速になります。実務で高速化を図るなら、読み込んだ文字列を配列（Array）に格納し、最後に一度でシートに書き出す「一括転記」の手法を取り入れるのがプロの仕事です。
まとめ：第15回 1/4の振り返り
今回の講義では、FileSystemObjectを用いた外部ファイル読み込みの基礎を学びました。
・FSOは現代のVBA開発における標準的なツールである。
・OpenTextFileメソッドによる読み込みフロー（作成→確認→開く→ループ→閉じる）を徹底する。
・エラーハンドリングを怠らず、ファイルが存在しない場合などの例外処理を必ず記述する。
これらは、どんなに複雑なシステム開発においても変わることのない基本原則です。まずはサンプルコードをそのまま動かし、次に読み込むファイルの内容や、書き込み先のシートを変更するなどして、コードを「自分の手で触る」時間を確保してください。
次回（第15回 2/4）は、読み込んだデータから必要な部分だけを抽出する「文字列操作（Split関数やInStr関数）」について深掘りしていきます。データはただ読み込むだけではなく、目的の形に加工してこそ価値が生まれます。準備はいいですか？ 次のステップでさらに実務的なテクニックを習得しましょう。
VBAの学習において最も重要なのは「なぜそのコードを書くのか」を言語化できることです。今回学んだFileSystemObjectの構造を深く理解し、次回の講義に備えてください。皆さんのプロフェッショナルなスキル向上を心より応援しています。
