AccessVBA クエリを呼び出す

Sub test()

'Accessにあるクエリを作成するプロシージャを呼ぶ
'クエリを作ってあるmdbなら不要

Set a = CreateObject("Access.Application")

With a
.OpenCurrentDatabase "xxx.mdb"
.Visible = False
.Application.Run "xxx"
.Quit
End With

Set a = Nothing

'ここからはADO

Set c = CreateObject("ADODB.Connection")
Set r = CreateObject("ADODB.Recordset")

c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxx.mdb;"
r.Open "test", c

'クエリで動的なテーブルを開く。
'ちゃんとSQL Serverまで読みにいっている｡Accessの中にキャッシュなどしていないよう

ActiveSheet.Cells(1, 1).CopyFromRecordset r

End Sub

Sub test()

'Accessにあるクエリを作成するプロシージャを呼ぶ

'クエリを作ってあるmdbなら不要

Set a = CreateObject("Access.Application")

With a

.OpenCurrentDatabase "xxx.mdb"

.Visible = False

.Application.Run "xxx"

.Quit

End With

Set a = Nothing

'ここからはADO

Set c = CreateObject("ADODB.Connection")

Set r = CreateObject("ADODB.Recordset")

c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxx.mdb;"

r.Open "test", c

'クエリで動的なテーブルを開く。

'ちゃんとSQL Serverまで読みにいっている｡Accessの中にキャッシュなどしていないよう

ActiveSheet.Cells(1, 1).CopyFromRecordset r

End Sub