Wscript.Quit在VBA中给出错误424

Question

我正在VBA for Word中编写一些代码，如果他们想要关闭窗口，或者如果不使用是/否框，则将用户重定向到链接。问题是如果用户不想继续链接，代码会出现错误424：需要对象。

Set objShell = CreateObject("Wscript.Shell")
intMessage = MsgBox("Would you like to read about alternatives to these words?", vbYesNo, "Access Denied")
If intMessage = vbYes Then
objShell.Run ("LINK")
Else
Wscript.Quit
End If

当我调试错误时，错误424突出显示'Wscript.Quit'。 我该如何解决这个问题？

谢谢！

Answer 1

WScript是一个VBScript对象。你正在编写VBA代码。完全删除指令，WScript未定义，没有任何意义。

您收到该错误，因为在您的代码中，WScript是Variant/Empty，只是因为模块顶部缺少Option Explicit，这样才能编译VBA代码＆安培;在没有验证每个变量被正确声明的情况下运行（这意味着拼写错误地编译和运行） - 换句话说，它是一个未声明的变量，并且因为你正在对它进行成员调用，所以每个VBA语法只能是一个对象...除非它不是，因此“需要对象”。

• 远程指示。
• 将Option Explicit添加到模块顶部
• 声明所有变量。了解如何使用Dim语句。