2

我有一个用 VSTO 编写的 COM 加载项，我想使用 VBA 宏调用它。使用加载项我需要启动它，输入一些文本（自动），然后运行应用程序。加载项都是按钮，我不能轻易访问代码，因为其中一些是加密的（它是第 3 方）。遗憾的是，单击此加载项时，记录功能没有获取任何活动，并且我无法将其添加到 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
4

0 回答 0