我有一个用 VSTO 编写的 COM 加载项,我想使用 VBA 宏来调用它。对于加载项,我需要启动它,输入一些文本(自动),然后运行应用程序。该加载项都是按钮,我无法轻松访问代码,因为其中一些代码是加密的(它是第三方)。遗憾的是,当单击此加载项时,记录功能不会拾取任何活动,并且我无法将其添加到 VBA 上的引用列表中。我已经尝试了几种方法来做到这一点,但到目前为止没有一种方法有效。
这是我的代码。正如所写的,它在倒数第二行代码上抛出运行时错误 91 代码。如果我在最后一行列表周围添加括号,则会出现语法错误(预期:=)。我不确定问题是什么?
Sub Test()
Dim addIn As COMAddIn
Dim automationObject As Object
Dim SQL_CODE As String
Dim PW As String
Dim Name As String
Set addIn = Application.COMAddIns("Orion2010")
SQL_CODE = "SELECT startdatetime, tli, serialnumber, keyname FROM vmfgoperationdata WHERE serialnumber in ( '90102072B030H' , '90102072003BF') and operationname = 'Part Scanning')"
PW = "password"
Name = "na\npiotrowski"
Set automationObject = addIn.Object
automationObject.Utility.RefreshData Name, PW, SQL_CODE
End Sub
None
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)