AccessのVBAで外部テキストファイルを1行ずつ読み込み

概要

txtやcsvなど テキストエディターで開けるファイル を1行ずつ読み込んで処理。

参照設定

Microsoft ActiveX Data Objects 2.8 Library

サンプル（1行目だけ）

'フォームにbtn_1というボタンがあり、そのクリックイベントという想定。
Private Sub btn_1_Click()


    Dim stream_ As New ADODB.Stream
    
    'OpenはLoadFromFileより前に行っておく必要があるので注意。
    'LoadFromFile ⇒ Openの順だと例外になります。
    stream_.Open

    stream_.Charset = "UTF-8"
    'SJISの場合は下記。
    'stream_.Charset = "SJIS"
    
    'キャリッジリターンラインフィード来た = 行末まで来た　と判定。
    stream_.LineSeparator = adCRLF
    
    'Accessと同じフォルダーにあるtes.txtを読み込む。
    stream_.LoadFromFile CurrentProject.Path & "\tes.txt"
    
    '1行目だけ取り出して内容確認。
    Dim first_row_ As String
    first_row_ = stream_.ReadText(adReadLine)
    Debug.Print first_row_
    
    stream_.Close

    
End Sub

tes.txtが下記の時…

実行結果。

サンプル（全行）

Private Sub btn_1_Click()


    Dim stream_ As New ADODB.Stream
    stream_.Open
    stream_.Charset = "UTF-8"
    stream_.LineSeparator = adCRLF
    stream_.LoadFromFile CurrentProject.Path & "\tes.txt"

    Do Until stream_.EOS
        Debug.Print stream_.ReadText(adReadLine)
    Loop
    
    stream_.Close

    
End Sub

参考サイトさん

バージョン

Microsoft Windows [Version 10.0.19045.4239]
Microsoft Access for Microsoft 365 MSO (バージョン 2403 ビルド 16.0.17425.20138) 32 ビット