vba - 用于打开Access数据库，运行宏并保留Access实例的脚本

我想要一个脚本来：


打开一个Access .accdb文件
在数据库中运行宏
保持打开状态


我可以使用以下VB脚本轻松完成前两个操作：

dim accessApp
set accessApp = createObject("Access.Application")
accessApp.visible = true
accessApp.OpenCurrentDataBase("C:\path.accdb")
accessApp.Run "myLinker"

但是，当VBS执行完成时，它将立即关闭Access数据库。我希望实例独立于脚本保持打开状态。

我并没有被迫为此使用VBScript，但实际上似乎最容易调用该宏来运行。

最佳答案

如果要在脚本完成后使应用程序保持打开状态，则需要将UserControl属性设置为true。

dim accessApp
set accessApp = createObject("Access.Application")
accessApp.visible = true

accessApp.UserControl = true

accessApp.OpenCurrentDataBase("C:\path.accdb")
accessApp.Run "myLinker"

当Visible属性为true时，UserControl属性在技术上是不必要的。它将自动设置。

此处更多信息：http://msdn.microsoft.com/en-us/library/office/ff836033.aspx

关于vba - 用于打开Access数据库，运行宏并保留Access实例的脚本，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20403424/