vba - 使用内置对话框时出错 "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"

或英文(希望我翻译正确):

"runtime error 1004: error of object or application"

提前谢谢您!

西蒙

Answer 1

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

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