【VBAリファレンス】第15回ファイルの読み込みに挑戦しよう 3/4：FileSystemObjectを活用した効率的なテキストデータ解析術

ExcelVBA

2026.08.30

概要：VBAにおけるファイル操作のパラダイムシフト

Excel VBAで外部ファイルを取り扱う際、古くから親しまれてきた「Openステートメント」による逐次読み込みは、シンプルですがエラーハンドリングや複雑なデータ構造への対応において限界があります。本連載の第3回目となる今回は、VBAプログラミングにおける「真の標準」とも呼べる「FileSystemObject（FSO）」を用いた、堅牢かつ高速なテキストファイル読み込み手法を徹底解説します。

実務において、ログファイルの解析やCSVデータのインポートは避けて通れないタスクです。従来のOpenステートメントでは、ファイルのロック状態やエンコーディング（文字コード）の壁にぶつかり、プログラムが停止してしまうリスクが常に付きまといます。FSOは、Windowsのファイルシステムをオブジェクトとして操作するため、直感的なコード記述が可能であり、なおかつ堅牢なエラー処理を実装しやすいという圧倒的なメリットがあります。

本稿では、単にファイルを開くだけではなく、メモリ効率を考慮した読み込み手法と、実務で必須となる「文字コード」への対応策までを網羅的に解説します。これさえ習得すれば、あなたのVBAスキルは「初級」から「中級」へと着実なステップアップを遂げるはずです。

詳細解説：FileSystemObjectの真価とは

FileSystemObject（以下、FSO）は、Microsoft Scripting Runtimeライブラリに含まれる強力なオブジェクト群です。これを使用することで、ファイルの存在確認、パスの操作、テキストストリームの読み書きが非常に高度なレベルで実現できます。

FSOの最大の利点は、その抽象化されたインターフェースにあります。「テキストストリーム」という概念を導入することで、ファイルの内容を「データのかたまり」ではなく「流れ（Stream）」として扱うことが可能になります。これにより、非常に大きなファイルであっても、メモリを圧迫せずに一行ずつ丁寧に処理する、あるいは一気にメモリへ展開して解析する、といった柔軟な設計が可能です。

また、FSOを利用する際は「参照設定」を行うことでIntelliSense（入力補完）が効くようになります。これにより、メソッド名やプロパティ名を記憶に頼る必要がなくなり、コーディングの生産性が劇的に向上します。特に、開発環境を共有するチーム開発において、この「コードの可読性」と「保守性」は、開発者としての評価に直結する重要な要素です。

サンプルコード：安全かつ高速なテキスト読み込みの実装

以下に、FSOを使用してテキストファイルを一行ずつ読み込み、イミディエイトウィンドウに出力する汎用的なプロシージャを提示します。このコードは、ファイルが存在しない場合やアクセス権限がない場合を想定したエラーハンドリングも考慮しています。


' 事前に「Microsoft Scripting Runtime」への参照設定が必要です
Public Sub ReadTextFileWithFSO()
    Dim fso As FileSystemObject
    Dim txtStream As TextStream
    Dim filePath As String
    Dim lineData As String
    
    ' ファイルパスの設定（環境に合わせて変更してください）
    filePath = ThisWorkbook.Path & "\data.txt"
    
    ' FSOのインスタンス化
    Set fso = New FileSystemObject
    
    ' ファイルの存在確認
    If Not fso.FileExists(filePath) Then
        MsgBox "指定されたファイルが見つかりません。", vbCritical
        Exit Sub
    End If
    
    ' ファイルを読み込みモード（ForReading）で開く
    ' 第3引数のTristateFalseはシステムデフォルト（Shift-JIS等）での読み込みを指定
    Set txtStream = fso.OpenTextFile(filePath, ForReading, False, TristateUseDefault)
    
    ' ファイルの末尾までループ処理
    On Error GoTo ErrHandler
    Do Until txtStream.AtEndOfStream
        lineData = txtStream.ReadLine
        
        ' ここでデータ解析処理を行います
        Debug.Print lineData
    Loop
    
    ' 後処理
    txtStream.Close
    Set txtStream = Nothing
    Set fso = Nothing
    
    Exit Sub

ErrHandler:
    MsgBox "エラーが発生しました: " & Err.Description
    If Not txtStream Is Nothing Then txtStream.Close
    Set txtStream = Nothing
    Set fso = Nothing
End Sub

実務アドバイス：文字コードの罠を回避する

実務において最も頻発するトラブルは「文字化け」です。特に近年では、Webから出力されるデータや外部システムからのデータにおいて、UTF-8形式が主流となっています。しかし、FSOのOpenTextFileメソッドは、デフォルトではShift-JISを前提としています。

UTF-8ファイルを扱う場合、上記のコードのままでは日本語が文字化けしてしまいます。これを回避するためのテクニックとして、「ADODB.Stream」オブジェクトを併用する方法があります。FSOはファイルシステム操作に長けていますが、文字コード変換に関してはADODB.Streamの方が遥かに多機能かつ正確です。

実務レベルのコードでは、読み込みたいファイルの性質（文字コード、サイズ）を見極め、FSOでファイルパスや存在チェックを行い、ADODB.Streamでバイナリとして読み込み、文字コードを指定して変換するという「ハイブリッド戦略」をとるのが、ベテランエンジニアの定石です。

また、ループ処理の中で「DoEvents」を挟むことも忘れてはいけません。非常に巨大なファイルを読み込む場合、VBAが処理に専念してしまい、Excelが「応答なし」状態になることがあります。数千行を超えるデータを読み込む際は、適宜DoEventsを配置して、OSへの制御を戻す配慮が必要です。

まとめ：読み込みの極意を体得しよう

本稿では、FileSystemObjectを用いた堅牢なテキスト読み込み手法について解説しました。
1. FSOの導入により、従来のOpenステートメントよりも可読性と保守性の高いコードが書けるようになる。
2. インスタンスの生成、存在確認、ストリームのクローズをセットで行うことで、リソースリークを防ぐ。
3. 日本語環境における文字コードの問題は、ADODB.Streamとの組み合わせで解決する。

ファイル操作は、VBAにおける「入力」と「出力」の要です。ここが正確に実装できていれば、あなたの作成するツールは格段に安定します。次回の最終回では、この読み込み技術を応用し、より実用的なデータ加工・分析の実践編へと進みます。ぜひ、今回のコードを実際に実行し、ファイル操作のスピード感と安心感を体感してください。プログラミングにおいて、座学以上に重要なのは、自分の手で書き、エラーと向き合い、それを解決していくプロセスそのものです。自信を持って、次のステップへ進みましょう。