【VBAリファレンス】Excel VBAでLF改行のテキストファイルを完璧に制御する｜プロが教える高速読み込みの極意

概要：なぜLF改行のファイルがExcel VBAの鬼門なのか

Excel VBAでテキストファイルを扱う際、最も頻繁に遭遇するトラブルの一つが「改行コードの不一致」です。Windows標準のメモ帳やExcelが想定する改行コードは「CR+LF（0x0D 0x0A）」ですが、LinuxやmacOS、あるいは最新のWebシステムから出力されるログファイルやCSVデータの多くは「LF（0x0A）」のみの改行コードを採用しています。

VBAの標準的なファイル入出力命令である「Line Input #」ステートメントは、CR+LFを改行として認識しますが、LFのみの場合はファイルを「1行の巨大なデータ」として読み込んでしまいます。結果として、データが正しく分割されず、プログラムが期待通りに動作しないという事態が発生します。本稿では、LF改行ファイルをVBAで効率的かつ堅牢に処理するための技術的アプローチを徹底解説します。

詳細解説：LF改行を攻略する二つのアプローチ

LF改行ファイルを処理する方法には、大きく分けて二つのアプローチが存在します。一つは「ADODB.Stream」を使用する方法、もう一つは「FileSystemObject（FSO）」を介してバイナリとして読み込み、メモリ上で置換する方法です。

結論から申し上げますと、実務レベルで最も推奨されるのは「ADODB.Stream」を用いたストリーム読み込みです。これは、ファイルを開く段階で文字コードや改行コードを明示的に指定できるため、OSの環境に依存しない安定した動作が保証されるからです。

ADODB.Streamを使用する利点は以下の通りです。
1. 文字コード（UTF-8, Shift-JIS等）を正確に指定できる。
2. 大容量ファイルであってもメモリを効率的に使用できる。
3. 改行コードの違いを意識することなく、文字列として抽出可能。

一方で、軽量なファイルであれば、FSOで一括読み込みした後にReplace関数でLFをCR+LFに置換して配列化するという手法も有効ですが、メモリ消費量を考慮すると、大規模データにはADODB.Streamが圧倒的に有利となります。

サンプルコード：ADODB.StreamによるLFファイルの読み込み

以下に、LF改行のファイルを読み込み、セルへ転記する実用的なコードを提示します。

Sub ReadLFTextFile()
    Dim adoStream As Object
    Dim filePath As String
    Dim fileContent As String
    Dim lines() As String
    Dim i As Long
    
    ' ファイルパスを指定
    filePath = "C:\Data\sample_lf.txt"
    
    ' ADODB.Streamオブジェクトの生成
    Set adoStream = CreateObject("ADODB.Stream")
    
    With adoStream
        .Type = 2 ' adTypeText
        .Charset = "UTF-8" ' ファイルの文字コードに合わせて変更
        .Open
        .LoadFromFile filePath
        fileContent = .ReadText(-1) ' adReadAll
        .Close
    End With
    
    ' LFのみ（またはCRLF混在）をCRLFに統一して分割
    ' VBAのSplit関数はLFのみでは分割できないため、置換する
    fileContent = Replace(fileContent, vbLf, vbCrLf)
    fileContent = Replace(fileContent, vbCrLf & vbCrLf, vbCrLf) ' 二重改行の解消
    
    lines = Split(fileContent, vbCrLf)
    
    ' セルへの書き出し
    For i = LBound(lines) To UBound(lines)
        Cells(i + 1, 1).Value = lines(i)
    Next i
    
    Set adoStream = Nothing
End Sub

実務アドバイス：パフォーマンスと堅牢性を高めるために

実務においてテキストファイルを扱う際、コードの正確性と同じくらい重要なのが「パフォーマンス」と「エラーハンドリング」です。

まずパフォーマンスについて。数万行を超えるファイルを処理する場合、1行ずつセルの読み書きを行うのは非常に低速です。必ず配列（Array）に一度データを格納し、最後にRangeオブジェクトに対して一括で書き込む手法を採用してください。これにより、処理速度は数十倍から数百倍に跳ね上がります。

次にエラーハンドリングです。ファイルが存在しない場合や、別プロセスによってファイルがロックされている場合、VBAは即座に停止します。「On Error GoTo」による例外処理を必ず実装し、ユーザーに分かりやすいメッセージを表示するようにしてください。

また、文字コードの指定にも注意が必要です。昨今のWebデータは「UTF-8」が標準ですが、BOM（Byte Order Mark）の有無によって読み込み結果が化けることがあります。もしADODB.Streamで文字化けが発生する場合は、Charsetを「UTF-8」から「Windows-1252」や「Shift-JIS」へ切り替える、あるいはBOMを考慮したストリーム処理を検討する必要があります。

最後に、LF改行ファイル特有の問題として「改行が連続するケース」があります。システムによってはLFが連続して出力されることがあり、Split関数で分割すると空の行が生成されてしまいます。実務では、Splitの後にFilter関数を使用するか、ループ内で空行判定を行い、データをクレンジングする処理を挟むのがプロの仕事です。

まとめ：LF改行を制する者はVBAを制する

Excel VBAで外部データを扱うことは、業務自動化の第一歩です。しかし、LF改行という「小さな壁」に躓いて多くの開発者が挫折しています。今回紹介したADODB.Streamを用いたアプローチは、一度構築してしまえば、どんなシステムから出力されたファイルであっても安定して処理できる強力な武器となります。

今回のポイントを整理します。
1. Line Input #はLF改行に対応していない。
2. ADODB.Streamを使用することで、文字コードと改行問題を一挙に解決できる。
3. データは配列で処理し、セルへの出力は一括で行うことで高速化を実現する。
4. システム特有の空行や文字化けには、前処理（クレンジング）で対応する。

これらの技術を習得することで、あなたは単なる「マクロ作成者」から、堅牢で保守性の高いシステムを構築できる「VBAエンジニア」へとステップアップできるはずです。まずは手元にあるLF改行のログファイルで、上記のコードを試してみてください。その瞬間、Excel VBAの可能性が大きく広がっていることに気づくはずです。