脚本打开Access数据库,运行宏,并持久化Access实例

Question

我想要一个脚本:

1. 打开Access .accdb文件
2. 在数据库中运行宏
3. 保持开放状态

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

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

但是当VBS执行完成时,它会立即关闭Access数据库.我希望实例保持独立于脚本的开放状态.

我没有被迫使用VBScript,但它似乎最容易实际调用宏来运行.

Answer 1

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

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

accessApp.UserControl = true

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

Visible当UserControl物业属实时,该物业在技术上是不必要的.它会自动设置.

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