问题描述
我看过一些关于此主题的帖子,但我怀疑我的加载项可能不是“COM”加载项,或者可能是因为我运行的是 Office 365 excel 并且这些帖子可能已过时。
我在 Excel 的“加载项”菜单中有一个第三方加载项。我想要做的就是启动该加载项,而无需按菜单中的按钮。这可能吗?
如果我运行下面的代码,我可以从结果中看到加载项。
Sub ExcelAddindetails()
Dim i As Long
For i = 1 To Application.COMAddIns.Count
With Application.COMAddIns(i)
Debug.Print .progID & " : " & .Description
End With
Next
End Sub
代码为此加载项返回以下内容。第二行是有问题的加载项。我不确定第一行是否相关或不同。
AdHocReportingExcelClientLib.AdHocReportingExcelClientAddIn.1 : Microsoft Power View for Excel
vendorName.SSRSExcelAddin : vendorName.SSRSExcelAddIn
ExcelPlugInShell.PowerMapConnect : Microsoft Power Map for Excel
FreeConferenceCallMeeting.Addin : FreeConferenceCallMeeting Addin
MicrosoftDataStreamerforExcel : Microsoft Data Streamer for Excel
NativeShim.InquireConnector.1 : Inquire
PDFMaker.OfficeAddin : Acrobat PDFMaker Office COM Addin
PowerPiVotexcelClientAddIn.NativeEntry.1 : Microsoft Power Pivot for Excel
我还包含了一张图片,以便您可以查看加载项所在的位置。注意 - 我无法修改加载项。这是第三方加载项,我无权访问其代码等。
我尝试使用以下方法,但这不起作用。我也无法通过在我认为此代码可能需要的单元格中右键单击来执行此加载项。
Sub OpenReportAddin()
Dim addinModule As Object
Set addinModule = Application.COMAddIns.Item("vendorName.SSRSExcelAddIn").Object
addinModule.ExecuteMso ("vendorName.SSRSExcelAddIn")
End Sub
谢谢!
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)