从 vbscript 访问中运行宏和子

Posted 2023-05-06

【中文标题】从 vbscript 访问中运行宏和子

【英文标题】：Run macro and sub in access from vbscript

【发布时间】：2015-06-26 14:52:14

【问题描述】：

我有一个 VBScript，需要运行一个宏并将数据插入表中。为了运行宏，我创建了一个Access.Application 对象并使用Run 函数：

Dim oAccess
Set oAccess = CreateObject("Access.Application")
oAccess.OpenCurrentDatabase(accessFile)

oAccess.Run macroName

现在我需要插入一些记录，为此我需要使用ADODB.Connection 和Recordset。但是通常我会调用Connection.Open，但数据库已经从Access.Application 打开。有没有办法不必两次打开 Access 文件，而是从 Access.Application 对象中获取 ADODB.Connection？

【参考方案1】：

oAccess.CurrentProject.Connection 是一个 ADO Connection，用于当前在该 oAccess 会话中打开的数据库。

直接使用Connection，或者Set一个对象变量：

Dim cn
Set cn = oAccess.CurrentProject.Connection