2013年1月15日火曜日

VBA Excelマクロ(Accessに接続)

Access のデータベースのテーブルから値を取り出して、Excelのシートに書き込みをするマクロのサンプルです。






Sub test()

 Set conn = CreateObject("ADODB.Connection")
 Set rs = CreateObject("ADODB.Recordset")
 
 conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\mdb\stock_mdb.mdb"
 
    rs.Open "select * from table_stock order by hiduke;", conn, 3, 3

    num_of_fields = rs.Fields.Count

    rs.MoveFirst

    k = 0

    Do While Not rs.EOF


       For i = 0 To num_of_fields - 1
 
           Cells(k + 1, i + 1).Value = rs.Fields(i)

       Next

    rs.MoveNext


    k = k + 1
 

    Loop

    rs.Close
    conn.Close
 

End Sub

0 件のコメント:

コメントを投稿