VBA Accessモジュール（テキストファイルを読み込み）

Access　でのVBA(モジュール)のサンプルです。テキストファイルを一行づつ読み込んで表示します。









Sub read_file()

strFileName = "c:\mdb\readme.txt"

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objfile = objFileSystem.OpentextFile(strFileName)

    Do Until objfile.atendofstream
 
    'objfile.Write (str_message)
        strRecBuff = objfile.readline
        MsgBox strRecBuff
     
        aaa = Split(strRecBuff, " ")

        MsgBox aaa(0) & "," & aaa(1) & "," & aaa(2)
     

    Loop


objfile.Close

End Sub