vba - Excel VBA检查插件是否已安装但未打开

Question

在从当前上下文调用该插件中的脚本之前，我有以下代码来检查所需的插件是否已安装/可用:

Function IsAddinEnabled(addinName as string) As Boolean
    IsAddinEnabled = True
    Dim myAddin As addin
    On Error GoTo NotExists
    Set myAddin = Application.AddIns2(addinName)
    If myAddin.IsOpen = False Then ' this logic is my workaround
        myAddin.Installed = False 'uninstall 
        myAddin.Installed = True ' install to "Open" the addin
    Else
        myAddin.Installed = True 'redundant
    End If
    Exit Function
NotExists:
    IsAddinEnabled = False
End Function

问题出现在:
myAddin.IsOpen = false我必须添加这个逻辑来重新安装插件。卸载并重新安装插件有点麻烦/减慢速度。有没有办法在不重新安装插件的情况下强制插件“打开”？

Answer 1

每@Charles Williams

这是我使用的方法:

Function IsAddinEnabled(addinName as string) As Boolean
    IsAddinEnabled = True
    Dim myAddin As addin
    On Error GoTo NotExists
    Set myAddin = Application.AddIns2(addinName)
    If myAddin.IsOpen = False Then ' this logic is my workaround
        Workbooks.Open myAddin.Path & "\" & myAddin.Name 'open the addin, if it's not open
    Else
        myAddin.Installed = True 'redundant
    End If
    Exit Function
NotExists:
    IsAddinEnabled = False
End Function