.com加载项的 加载和关闭 能用vba控制吗？

mavin

.com加载项的 加载和关闭 能用vba控制吗？

opel-wong

供参考：

1. Sub 加载()
   
2.     Dim addin As addin
   
3.     For Each addin In AddIns
   
4.         If addin.Name = "你的加载项目名称" Then
   
5.             addin.Installed = True ' 加载
   
6.            ' addin.Installed = False ' 取消
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

mavin

感谢opel-wong的回复。我试了你的代码，没有成功。但是根据你的代码，论坛里找到了成功的代码。
这个es软件，跟power query有冲突。必须要先打开含有power query的模型，然后再加载es插件。
这个卸载es的代码，我放在Workbook_Open()里，打开模板时，先卸载es插件，然后加载上power query。
现在需要找个事件，在pwoer query 文件打开完成后，再把es插件加载上。实在找不到，我就在文件上做个按钮，加载es插件。（本来是点：开发工具——com加载项——勾选es插件——点确定，需要点4下，改成一个按钮，只需要点一下，少点三下也是进步呀。）

Sub 加载es()
    Dim objaddin As COMAddIn
    For Each objaddin In Application.COMAddIns
       If objaddin.Description = "CESoft Excel Server Addin" Then objaddin.Connect = True
    Next
End Sub
Sub 卸载es()
    Dim objaddin As COMAddIn
    For Each objaddin In Application.COMAddIns
       If objaddin.Description = "CESoft Excel Server Addin" Then objaddin.Connect = False
    Next
End Sub

mavin

测试成功了。
Private Sub Workbook_Open()
    卸载es
    Savetime = Timer '记下开始的时间
    While Timer < Savetime + 3 '循环等待
        DoEvents '转让控制权，以便让操作系统处理其它的事件
    Wend
    加载es
End Sub
Sub 加载es()
    Dim objaddin As COMAddIn
    For Each objaddin In Application.COMAddIns
       If objaddin.Description = "CESoft Excel Server Addin" Then objaddin.Connect = True
    Next
End Sub
Sub 卸载es()
    Dim objaddin As COMAddIn
    For Each objaddin In Application.COMAddIns
       If objaddin.Description = "CESoft Excel Server Addin" Then objaddin.Connect = False
    Next
End Sub