VBA调用VSTO外接程序出错

jy03342543

求助下各位老师 我在VSTO里创建了一个ExcelVSTO外接程序程序集名称为"ExcelAddIn1" 然后我又创建了一个VB类想让VBA调用这个类。
下面是类的代码



Imports System.Data
Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel
<ComVisible(True)> _
Public Interface IAddInUtilities
    Sub ImportData()
End Interface
<ComVisible(True)> _
<ClassInterface(ClassInterfaceType.None)> _
Public Class AddInUtilities
    Implements IAddInUtilities
    Public Sub ImportData() Implements IAddInUtilities.ImportData
     Dim activeWorksheet As Excel.Worksheet = Globals.ThisAddIn.Application.ActiveSheet
        If activeWorksheet IsNot Nothing Then
            Dim range1 As Excel.Range = activeWorksheet.Range("A1")
            range1.Value2 = "This is my data"
        End If
    End Sub
End Class


随后在Thisaddin里面写了一个暴露Com类的代码

Public Class ThisAddIn
    Private Sub ThisAddIn_Startup() Handles Me.Startup
    End Sub


    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    End Sub


    Private utilities As AddInUtilities
Protected Overrides Function RequestComAddInAutomationService() As Object
    If utilities Is Nothing Then
        utilities = New AddInUtilities()
    End If
    Return utilities
End Function
End Class

好了之后做成安装包不知道为啥在本地运行时是可以成功的在虚拟机里测试或者发布给别人就会报错。
Sub CallVSTOMethod()  'VBA调用VSTO
    Dim addIn As COMAddIn
    Dim automationObject As Object
    Set addIn = Application.COMAddIns("ExcelAddIn1")
    Set automationObject = addIn.Object
    automationObject.ImportData
End Sub

上面是VBA调用VSTO的代码 Set addIn = Application.COMAddIns("ExcelAddIn1") 这句报错提示下标越界
请各位路过的老师帮忙看看我哪个环节弄做了，万分感谢！

jygzcj

不知道是啥原因打不开