Try code like the following. You'll need a reference to Access
(VBA, Tools menu, References).

Dim Acc As Access.Application
On Error Resume Next
Set Acc = GetObject(, "Access.Application")
If Acc Is Nothing Then
Set Acc = CreateObject("Access.Application")
If Acc Is Nothing Then
MsgBox "cannot get access"
Exit Sub
End If
End If
On Error GoTo 0

Acc.OpenCurrentDatabase "H:\db2.mdb"

Acc.Run "AAA"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"ppyxl"
wrote in message
...

Hi, guys,

I have a macro in Access which execute the query. I want to set
up an
automatic file in excel so that I can call the macro in access
as well.
Any one can help me?


--
ppyxl
------------------------------------------------------------------------
ppyxl's Profile:
http://www.excelforum.com/member.php...o&userid=36116
View this thread:
http://www.excelforum.com/showthread...hreadid=558875