就像是if addin exists then do nothing else add_addin("AddinName")。
我有一些加载项,启用后会首先弹出一条消息。因此,如果我在 Excel 自动打开时启用它们,就会变得非常烦人。如果我可以分配一些 VBA 代码来进行启用,并为代码放置一个快速访问按钮,那么管理起来就会容易得多,我只需要根据需要启用它们。
NathaneilCapital 因为您没有任何代码,所以我只会为您解释该过程。
添加新的加载项并安装它(使其出现在功能区上)非常容易。
添加插件:
使用 FileCopy 命令将 xlam 文件复制到库文件夹。您可以轻松获取应将文件复制到的地址,如下所示:
sAddInPathTo = Application.UserLibraryPath
sToFullName = sAddInPathTo & "\" & "MyAddInName.xlam"
FileCopy sFromFullName, sToFullName
此时,如果您转到开发人员/加载项,您将看到加载项的名称,但其旁边的复选框未选中,这意味着它未启用/安装。为此,您可以使用:
AddIns("MyAddInName").Installed=True
在此行之后,您的加载项应作为新选项卡显示在 Excel 功能区上。
要卸载该加载项,您可以简单地执行以下操作:
AddIns("MyAddInName").Installed=False
如果您要手动执行此操作,则应打开 AddInInstallerManager(开发人员/加载项)并取消选中您的加载项。
但是,从 AddInInstallerManager 的加载项列表中删除它更为复杂。首先,您应该从库地址中删除 xlam 文件,只需使用以下命令即可完成:
Kill sToFullName
确保先卸载,否则Windows将无法删除该文件。
其次,最困难的部分是清理注册表。事实上,在上述行之后,您会在 AddInInstallerManager 中看到加载项名称,但当您浏览时,您不会在那里看到 xlam 文件,这有点不一致。因为 AddInInstallerManager 列出了 ini 文件中的那些加载项。实际上,如果你到了这一点,它仍然很好,万一 Excel 发现它,它会刷新 ini 文件,你应该很好,但要手动执行此操作,你可以打开 AddInInstallerManager,当你单击加载项的名称,它会为您抛出错误,然后将其从列表中删除。您可以执行此操作,但使用发送键来模拟它或简单地修改注册表。请参阅此了解更多信息:
http://www.jkp-ads.com/articles/addinsandsetupfactory.asp