使用内置对话框“xldialogApplyNames”时出错

Question

我想通过VBA在Excel中使用命名的内置对话框。我学会了像here那样使用它。

这适用于许多已命名的内置框，但不适用于ApplyNames。所有参数都是可选的，因此这不是问题。我还尝试定义一个boolean变量并说variable = dialogbox，以便框（结果是boolean据我所知）有一些东西可以写出结果。但是那并没有也没工作。

我的代码如下所示：

Public Sub Box()
    Application.Dialogs(xlDialogApplyNames).Show
End Sub

发生的错误是：

  

Laufzeitfehler 1004：Objekt-oder Anwendungsdefinierter Fehler“

或英文（希望我正确翻译）：

  

“运行时错误1004：对象或应用程序错误”

提前谢谢！

西蒙

Answer 1

我刚刚测试过，如果活动工作簿不包含任何范围名称，我可以重现错误。只要添加一个，就会显示该对话框。所以：

Public Sub Box()
    If ActiveWorkbook.Names.Count >0 Then    
        Application.Dialogs(xlDialogApplyNames).Show
    End If
End Sub