从 Excel 调用 Access Sub

Question

我正在尝试从 Excel 调用 Access 数据库中的子例程。该子程序然后调用许多其他子程序，所有这些子程序都包含在数据库中。我看到了许多其他不鼓励这样做的帖子，但出于某种原因，Excel 需要成为这个的前端。我试过了：

Sub TestRun()
        Dim acObj As Access.Application
        Set acObj = CreateObject("Access.Application")
        acObj.Application.Visible = True
        acObj.OpenCurrentDatabase "C:\testMDB\TEST.mdb", False, "password"
        acObj.Application.Run ("TestRunAccess")
End Sub

数据库是具有密码的工作组的一部分 - 以这种方式运行仍会提示输入密码。我对 Access 不是很熟悉 - 我将如何去做？我需要包括哪些参考资料？

Answer 1

那就是：

''Reference: Microsoft Access x.x Object Library
Dim acObj As New Access.Application
''Set acObj = CreateObject("Access.Application")
acObj.Application.Visible = True
acObj.OpenCurrentDatabase "C:\testMDB\TEST.mdb",,"ADatabasePassword"
acObj.Application.Run "TestRunAccess"

如果您希望避免引用问题，您可能更喜欢使用后期绑定，在这种情况下：

Dim acObj As Object
Set acObj = CreateObject("Access.Application")
acObj.Application.Visible = True
acObj.OpenCurrentDatabase "C:\testMDB\TEST.mdb",,"ADatabasePassword"
acObj.Application.Run "TestRunAccess"