Excel 加载项有时无法加载

Question

我有一些 excel 加载项有时在我打开现有工作簿时无法加载。以下是我在尝试诊断时注意到的一些相关事实和事情:

这些是常规的 excel 加载项，而不是 COM 加载项。

从程序菜单打开 excel 时总是加载加载项。

从电子邮件/共享驱动器/个人驱动器打开工作簿时，加载项大约 10-20% 的时间不会加载。

我无法始终如一地复制这个问题。有时打开同一个工作簿会加载加载项，有时则不会。

该问题可能与其中一个内置安装程序的工具包有关。 (这个插件背后的想法是它可以发送给人们，他们只需打开就可以安装它。然后，一旦它安装在 AddIns 文件夹中，加载插件时它不再做任何事情)。

Private Sub Workbook_Open()

If Right(ThisWorkbook.Path, 6) <> "AddIns" Then

 Dim blRegister As Boolean
 Dim ThisAddIn As AddIn

 Application.DisplayAlerts = False
 On Error Resume Next

 ThisWorkbook.Sheets("Installing").Activate

 Application.AddIns("Toolkit").Installed = False

 ThisWorkbook.SaveAs "Z:\AppData\Microsoft\AddIns\ToolKit.xlam", AccessMode:=xlExclusive, ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges, FileFormat:=55

 On Error GoTo 0

 blRegister = Application.RegisterXLL("Z:\AppData\Microsoft\AddIns\ToolKit.xlam")

 Set ThisAddIn = Application.AddIns.Add("Z:\AppData\Microsoft\AddIns\ToolKit.xlam")
 ThisAddIn.Installed = True

 MsgBox "Thanks for Installing the Toolkit!"
 ThisWorkbook.Close False

 Application.DisplayAlerts = True

End If

End Sub

任何帮助或见解将不胜感激。

Answer 1

我有这个问题。 JKP 说可能是从互联网标志下载引起的。不过不是我的问题。
http://www.jkp-ads.com/Articles/Excel-Add-ins-fail-to-load.asp