Access のVBAのサンプル

以下は、カンマ区切りのテキストファイル（CSVファイル）から、データを読み込んで、Accessデータベースのテーブルにレコードを追加するマクロ（VBA）のサンプルです。Access2003 で試しました。



------------------------------------

Sub read_csv_file()


Set Db = DBEngine.Workspaces(0).Databases(0)

Set Tbl = Db.OpenRecordset("価格リサーチ結果", DB_OPEN_TABLE)


strFileName = "c:\users\xxxxxx\dropbox\pl\nttx.csv"

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

    Do Until objfile.atendofstream
 
        strRecBuff = objfile.readline
       
        aaa = Split(strRecBuff, ",")

       
       
            katakaku = aaa(0)
            urine = aaa(2)
            PRICE = aaa(3)
            HREF = aaa(4)
            hinmei = aaa(6)
       
       
            Tbl.AddNew
                Tbl.仕入れ値 = PRICE
                Tbl.販売値 = urine
                Tbl.品名 = hinmei
                Tbl.型格 = katakaku
                Tbl.購入URL = HREF
                Tbl.日付 = Now()
           Tbl.Update

    Loop
objfile.Close

End Sub