主页 / coding / 问题 / 78315657
Accepted
Danny Coleiro
Asked: 2024-04-12 18:28:39 +0800 CST

如何获取运行时引擎发送的错误消息文本

  • 772

  1. 运行以下宏。

     Sub Macro1()
     MsgBox "Hello"
 End Sub

  2. 当消息框弹出时，按键盘上的Ctrl+C键。

  3. 打开记事本文件并按键盘上的Ctrl+V键。

  4. 如您所见，您可以从MsgBox复制并粘贴到记事本 文件中。

  5. 现在让我们做第二个场景。

  6. 运行以下宏。

     Sub Macro2()

     Dim myNumber As Integer
     myNumber = 20

     Dim yourNumber As Integer
     yourNumber = 0

     'In mathematics, a number can not be divided by zero. So the following code must throw an error.
     Dim resultNumber As Integer
     resultNumber = myNumber / yourNumber

 End Sub

  7. 当消息框弹出时，按键盘上的Ctrl+C键。

  8. 打开记事本文件并按键盘上的Ctrl+V键。

  9. 如您所见，您无法从MsgBox复制并粘贴到记事本 文件中。

我的问题：如何将运行时引擎发送的错误消息复制到 Windows 剪贴板，正如我在第二种情况中给出的示例一样。

vba

2 个回答

  1. Best Answer

    好吧，您可以从 复制消息MsgBox，但在第二种情况下，这不是 MsgBox 的问题。这是编译器发送的一条消息，其中提及错误号和错误描述。

    要捕获相应的数据，您应该按以下方式调整代码（将它们放置在普通的 MsgBox 中）：

    Sub Macro234()

     Dim myNumber As Integer
     myNumber = 20

     Dim yourNumber As Integer
     yourNumber = 0

     'In mathematics, a number can not be divided by zero. So the following code must throw an error.
     Dim resultNumber As Integer
     On Error Resume Next
     resultNumber = myNumber / yourNumber
     If Err.number <> 0 Then
        MsgBox "Error number: " & Err.number & vbCrLf & " Error Description: " & Err.Description
     End If
     On Error GoTo 0
 End Sub

    上面的代码改编仅回答了您提出的问题，但在现实生活中，有真正的需求，我无法理解为什么需要这样的问题？理论上，您应该使用能够解决可能出现的问题的错误处理机制。您可以使用Err.Number它来使代码按照合适的方向行事。例如，If Err.Number = 5 then MsgBox "The denominator must be different of zero,,,": Exit sub。

    • 1

  2. 消息“被零除”不是由编译器发送的，而是由 VBA运行时引擎发送的。可以使用 Ctrl+C复制编译器消息（例如“未找到变量”、“Block If without End If”），但不能复制运行时错误（不要问我为什么）。

    要了解差异：编译器错误意味着代码的语法无效并且无法执行。这是在代码执行之前就知道的。运行时错误是在代码执行期间发生的并且无法提前得知的错误：丢失文件、无效计算（如除以 0）、数字溢出、未初始化的对象变量等等。

    捕获运行时错误的常用方法是使用Error Handler。这是使用On Error...- 语句完成的。当发生运行时错误时，您可以使用err-object 来获取错误号和文本。

    在您的情况下，您的代码不会处理该错误。VBA运行时会在一个特殊的消息框中显示错误信息并询问你要做什么（相关选项是“结束”和“调试”）。

    当您选择“结束”时，VBA 进程将完全停止，并且编程上下文将丢失。所有变量都被重置，其中包括err-object。当您选择“调试”时，执行将在导致运行时错误的语句处暂停，并且编程上下文保留。在这种情况下，您只需? err.Number, err.Description在立即窗口中使用（然后从那里复制信息）。

    在您回答该问题之前，消息框将保持打开状态（作为模式窗口） ，并且在您回答问题之前无法在 Excel 或 VBA 中执行任何操作。唯一的方法是使用任何可以读取所有窗口的所有控件内容的第三方工具，但我怀疑您是否想要这样做。

    • 1

相关问题