我有一些 excel 加载项有时在我打开现有工作簿时无法加载。以下是我在尝试诊断时注意到的一些相关事实和事情:
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
任何帮助或见解将不胜感激。
最佳答案
我有这个问题。 JKP 说可能是从互联网标志下载引起的。不过不是我的问题。
http://www.jkp-ads.com/Articles/Excel-Add-ins-fail-to-load.asp
关于Excel 加载项有时无法加载,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36926557/