打开本地Access数据库并连接到SQL以运行Access宏

Question

我正在用excel编写一些VBA代码，以打开本地访问数据库并运行存储在访问数据库中的宏，这部分工作正常。我的问题是运行访问查询时。当本地访问文件连接到外部数据库时，它要求我登录Microsoft ODBC for Oracle connector。我可以编写VBA来建立与数据库的连接，但这使我无法运行访问宏，并使我无法在excel中运行本地查询。

Sub GetData()

Dim dbConnectStr As String
Set con = New ADODB.Connection
Set recset = New ADODB.Recordset
Dim recordCount As Long
dbConnectStr = "Provider=msdaora;Data Source=SERVER;User Id=USERNAME;Password=PASSWORD;"


'con.ConnectionString = dbConnectStr
'con.Properties("Prompt") = adPromptAlways
'con.Open dbConnectStr 'ConnectionString

Dim aa As Object
Set aa = CreateObject("Access.Application")
aa.OpenCurrentDatabase ("FILE_PATH\DATABASE.accdb")
    aa.DoCmd.RunMacro "macNAME"
aa.Quit

End Sub

我需要帮助：

1. 在excel中运行宏。
2. 宏打开本地访问文件。
3. excel宏在访问中运行宏（运行多个查询）
4. 一旦它在访问中运行宏，请登录到“ Microsoft ODBC for Oracle Connector”。
5. 等待xx分钟
6. 完成