我正在使用在下面使用VBA的SCADA系统。我需要运行存储在Access数据库(.mdb格式)中的函数。 在装有 Office 2007 的计算机上,我运行以下脚本:
Public Function RunAccessMacro(strDBPath As String, strMacroName As String)
On Error GoTo ErrH
Dim objAccessDB As Access.Application
Set objAccessDB = CreateObject("Access.Application")
objAccessDB.OpenCurrentDatabase strDBPath, False
objAccessDB.Run strMacroName
objAccessDB.CloseCurrentDatabase
Exit Function
ErrH:
objAccessDB.CloseCurrentDatabase
End Function
并且没有错误。在具有 Access Runtime 2007 的另一台计算机上,我收到错误消息
运行时错误'429':“ ActiveX组件无法创建对象”
在线
Set objAccessDB = CreateObject("Access.Application")
但是,有对Access.Application的引用(来自MSACC.OLB)。 所以我的问题是:是否可以在仅安装Access运行时的情况下从Access数据库运行功能?