【VBAリファレンス】Excel VBAで外部データを自在に操る第15回ファイルの読み込みに挑戦しよう 2/4

ExcelVBA

2026.08.31

概要：テキストファイルの読み込みとデータ構造の理解

Excel VBAを用いて業務を自動化する際、避けて通れないのが「外部ファイルとの連携」です。前回の第15回（1/4）では、FileSystemObject（FSO）を用いた基本的なファイル操作の準備を行いましたが、今回はその核心となる「テキストファイルを読み込み、セルに展開する」というプロセスを深く掘り下げます。

CSVやログファイルといったテキスト形式のデータは、現代の業務データ共有における標準言語です。これをVBAで制御できるようになれば、手動での「コピー＆ペースト」という低生産な作業から完全に解放されます。本記事では、ただ読み込むだけでなく、読み込んだデータをどのようにメモリ上で扱い、効率的にExcelシートへ出力するかという「データハンドリングの作法」について徹底的に解説します。

詳細解説：FileSystemObjectを活用した効率的な読み込み手法

VBAでファイルを読み込む手法はいくつか存在しますが、実務において最も推奨されるのが「FileSystemObject（FSO）」の使用です。FSOは、ファイルシステムへのアクセスをオブジェクト指向的に制御できるため、記述が直感的であり、かつエラー処理も強力です。

ファイルを読み込む際には、主に「OpenTextFileメソッド」を使用します。このメソッドには、読み込みモード（ForReading）、書き込みモード（ForWriting）、追記モード（ForAppending）がありますが、今回はデータ取得が目的ですので「ForReading」を使用します。

重要なのは、読み込んだデータをどう展開するかです。単純に一行ずつセルに書き込むという手法は、ループ処理の回数分だけExcelの再描画が発生し、極めて低速になります。プロの現場では、読み込んだデータを「配列」に一度格納し、最後に「Rangeオブジェクト」へ一括で書き出す手法が定石です。これにより、処理速度を数百倍から数千倍に向上させることが可能です。

また、文字コードの問題も無視できません。日本語環境では「Shift-JIS」と「UTF-8」が混在することが多々あります。標準的なTextStreamオブジェクトではUTF-8を正しく読み込めない場合があるため、ADODB.Streamオブジェクトを併用する知識も、ベテランエンジニアにとっては必須のスキルです。

サンプルコード：高速処理を実現するテキスト読み込みテンプレート

以下に、大規模なテキストファイルを高速に読み込み、シートへ出力する実務レベルのサンプルコードを提示します。このコードは、メモリ効率を考慮し、配列を活用した設計となっています。


Option Explicit

Sub ImportTextFileToSheet()
    ' 参照設定: Microsoft Scripting Runtime が必要
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Dim filePath As String
    Dim fileContent As String
    Dim dataArray() As String
    Dim i As Long
    
    ' ファイルパスの指定
    filePath = ThisWorkbook.Path & "\data.txt"
    
    ' ファイル存在チェック
    If Not fso.FileExists(filePath) Then
        MsgBox "指定されたファイルが見つかりません。", vbCritical
        Exit Sub
    End If
    
    ' ファイルを開く
    Set ts = fso.OpenTextFile(filePath, ForReading, False, TristateUseDefault)
    
    ' ファイル全体を読み込み（メモリ効率のため、巨大ファイルの場合は行ごとのループを検討）
    fileContent = ts.ReadAll
    ts.Close
    
    ' 行ごとに配列へ分割
    dataArray = Split(fileContent, vbCrLf)
    
    ' シートへ一括出力
    ' 配列のサイズ分だけ転記することで高速化を実現
    With ThisWorkbook.Sheets("Sheet1")
        .Cells.Clear
        For i = LBound(dataArray) To UBound(dataArray)
            .Cells(i + 1, 1).Value = dataArray(i)
        Next i
    End With
    
    MsgBox "データの読み込みが完了しました。"
End Sub

実務アドバイス：エラーハンドリングとメモリ管理

実務において最も恐ろしいのは、プログラムの停止ではなく「予期せぬデータ欠損」です。ファイルを読み込む際、必ず考慮すべきは以下の3点です。

第一に「排他制御」です。読み込もうとしているファイルが他のユーザーによって開かれている場合、エラーが発生します。これに対処するためには、必ず `On Error GoTo` を使用したエラーハンドラーを実装し、ファイルが開けない場合の再試行ロジックや、ユーザーへの分かりやすい通知を組み込む必要があります。

第二に「メモリの解放」です。VBAではオブジェクト変数は自動的に解放されることもありますが、複雑な処理の中ではメモリリークの原因となります。`Set ts = Nothing` および `Set fso = Nothing` を明示的に記述する癖をつけましょう。

第三に「文字コードの判定」です。前述の通り、UTF-8ファイルを扱う場合は、ADODB.Streamを利用したストリーム読み込みへ切り替えるのがプロの作法です。ファイル読み込みのモジュールをあらかじめ関数化（Function化）しておき、文字コードやファイルパスを引数として渡すだけで汎用的に使える設計にしておくと、メンテナンス性が飛躍的に向上します。

まとめ：読み込みの先にある自動化の世界

今回の第15回（2/4）では、ファイルの読み込みという「データの入り口」を学びました。ここで学んだ「データをメモリに展開し、効率的に配置する」という考え方は、単なるファイル読み込みに留まらず、Web APIからのデータ取得や、データベース（SQL Server等）との連携にも共通する、VBA開発の基礎体力とも言えるスキルです。

次回（3/4）では、読み込んだテキストデータをどのように「分割・加工」するか、つまり「区切り文字（カンマやタブ）」を解析して、Excelの列に正確にマッピングするテクニックについて解説します。

Excel VBAは、単なる表計算ソフトの補助ツールではありません。適切に構築されたVBAコードは、企業の基幹システムと連携し、業務の質を根本から変える力を持っています。今回のコードを動かし、ご自身のPCにあるログファイルやCSVファイルで実験を繰り返してください。コードを自分の手で書き換え、エラーを一つずつ解決していくプロセスこそが、あなたを真のVBAエンジニアへと成長させる最短ルートです。

準備はいいですか？次のステップへ進む前に、この「ファイル読み込み」の基本を骨の髄まで叩き込んでおきましょう。成功を祈ります。