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