Excel VBAでテキストファイルの任意の位置から数行だけ読み込む方法（EUC-JP対応）

2025年7月25日

大量のログファイルやテキストデータの中から、特定の行だけを抽出したいというケースは少なくありません。とくに、ファイルが大きすぎてすべて読み込むとパフォーマンスに影響する場合には、行番号を指定して必要な部分だけを読み込む方法が効果的です。

本記事では、Excel VBAと ADODB.Stream を活用し、EUC-JPでエンコードされたテキストファイルから、任意の行位置から特定行数だけ読み込む方法をご紹介いたします。

シナリオの想定

読み込むファイルは systemlog_euc.txt（EUC-JP形式で保存）
10行目から3行分だけ読み取り、Excelシートに表示
ファイル全体を読み込まず、必要部分だけ効率的に取り出す

VBAコード：指定行から指定行数だけ読み込む

Sub ReadPartialTextLines()
    Dim startLine As Long: startLine = 10
    Dim numberOfLines As Long: numberOfLines = 3
    Dim currentLine As Long
    Dim stream As Object
    Dim i As Long
    
    Set stream = CreateObject("ADODB.Stream")
    With stream
        .Charset = "EUC-JP"
        .Type = 2 ' テキストモード
        .LineSeparator = 10 ' 改行コード LF
        .Open
        .LoadFromFile ThisWorkbook.Path & "\systemlog_euc.txt"
        
        ' 読み飛ばし
        For currentLine = 1 To startLine - 1
            If .EOS Then Exit For
            .SkipLine
        Next
        
        ' 指定行数だけ読み取り
        For i = 1 To numberOfLines
            If .EOS Then Exit For
            ThisWorkbook.Worksheets(1).Cells(i, 1).Value = .ReadText(-2)
        Next
        
        .Close
    End With
End Sub

解説

処理内容	説明
`Charset = "EUC-JP"`	EUC-JP形式の文字エンコーディングに対応
`LineSeparator = 10`	改行コードをLF（UNIX系）に設定
`.SkipLine`	指定行まで読み飛ばす処理
`.ReadText(-2)`	1行ずつ読み込む（`-2`は1行単位を意味）
`.EOS`	ファイルの終端判定（End Of Stream）