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

Excel加载项有时不加载

1 个答案: