在excel中通过VBA调用COM加载项

时间:2012-09-11 15:24:49

标签: excel vba automation vsto

我有一个用VSTO编写的COM加载项,我想用VBA宏调用它。使用加载项我需要启动它,输入一些文本(自动),然后运行应用程序。加载项是所有按钮,我无法轻松访问代码,因为其中一些是加密的(它是第三方)。遗憾的是,当单击此加载项时,记录功能不会拾取任何活动,并且我无法将其添加到VBA上的引用列表中。我已经尝试了几种方法来做到这一点,到目前为止还没有任何方法。

感谢您的帮助!

-Nick

这是我的代码。如上所述,它会在第二行到最后一行代码上抛出运行时错误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