VBA 编译错误：从 COM 插件调用方法时参数不是可选的

Question

我有以下代码：

Sub CallVSTOMethod()
    Dim addin As COMAddIns
    Dim automationObject As Object
    Set addin = Application.COMAddIns("CssFillTool")
    Set automationObject = addin.Item
    automationObject.ButtonClearRemarks
End Sub

我正在尝试找出我收到此错误的原因。

ButtonClearRemarks 是插件中的众多宏之一。当我单独单击该宏时，它可以正常工作。

这个宏不需要任何参数。单击此按钮将格式化我的 excelsheet。我也尝试传递空参数和其他选项，但没有用。欢迎提出任何建议。

经过几次更正： Set addin = Application.COMAddIns Set automationObject = addin.Item("CssFillTool")

现在我只需要在这个插件中访问宏ButtonClearRemarks

Answer 1

这个没有经过测试，如果不正确我会删除它。

从我制作的 cmets 看起来是这样的：

Sub CallVSTOMethod()
    Dim addins As COMAddIns
    Set addins = Application.COMAddIns
    Dim addin As COMAddIn
    Set addin = addins.item("CssFillTool")
    addin.ButtonClearRemarks ' cast addin into the correct variable type
End Sub

ButtonClearRemarks 是插件中的众多宏之一。当我单独单击该宏时，它可以正常工作。

但我无法测试，因为我没有您的插件。由于ButtonClearRemarks 不是基础class 的一部分，我假设您需要将返回的对象转换为您的 插件，以便公开该方法。

您没有向我们展示ButtonClearRemarks 的代码，因此我们的知识有限。

我还遇到了this 的提示：

Dim objBaseObject As Object 
Set objBaseObject = _ 
 Application.COMAddIns.Item("CssFillTool").Object

所以也许你可以这样做。

Answer 2

假设有问题的外接程序是 COM 可见的并且该方法是可访问的，according to this other accepted answer（跳过答案的前 2/3，它在 C# 代码中模拟了一个简单的 COM 外接程序），您正在处理加载项不正确。

Sub Test()

    Dim addin As Office.COMAddIn
    Dim automationObject As Object

    Set addin = Application.COMAddIns("CssFillTool")
    Set automationObject = addin.Object  '<~~ handle the add-in's Object property

    automationObject.ButtonClearRemarks

End Sub