来自网页的消息。行堆栈溢出：1答案

【问题标题】：Message from webpage. Stack overflow at line: 1来自网页的消息。行堆栈溢出：1
【发布时间】：2014-05-02 10:14:23
【问题描述】：

这是代码，当我运行它并在下面描述的行上按 F8 时，我得到了上面的消息。必须点击 OK 按钮 17 次才能退出。只发生在几个网页上，其余的（1000s）工作正常。行前后试过On Error Resume Next没有效果。知道代码如何忽略消息并继续吗？

    Dim XMLHTTP As Object
    Dim myURL As String
    Dim html As Object

    With CreateObject("MSXML2.serverXMLHTTP")
    .Open "GET", myURL, False
    .setRequestHeader "Content-Type", "text/xml"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    On Error Resume Next
    .send

    Set html = CreateObject("htmlfile")
    html.body.innerHTML = .ResponseText 'getting the err msg here when I F8 on this line
    End With

【问题讨论】：

标签： vba error-handling excel-2010 xmlhttprequest

【解决方案1】：

你试过了吗

On Error Resume Err_Label
Dim XMLHTTP As Object
Dim myURL As String
Dim html As Object

With CreateObject("MSXML2.serverXMLHTTP")
.Open "GET", myURL, False
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"

.send

Set html = CreateObject("htmlfile")
html.body.innerHTML = .ResponseText 'getting the err msg here when I F8 on this line
End With

Exit sub

err_label:
'any error logging/reporting goes here
 exit sub

【讨论】：

是的，如果出现错误，您转到 err_label 然后退出，如果代码正常运行，您在点击 err_label 之前退出。如果代码在函数中，那么它是退出函数而不是退出子
On Error Resume Err_Label 的语法不正确，所以我使用了On Error GoTo Err_Label。我在同一行再次收到相同的错误消息，并且必须点击 OK 17 次才能摆脱它。不知道我是否需要在'any error logging/reporting goes here做什么或做什么...
你说 - 如果代码正常运行，你在点击 err_label 之前退出。除非我没有选项，否则我不想在点击 Err_Label 之前退出 sub，我想继续直到我结束 sub。 Err_label 也需要声明为某事吗？
好的，弄清楚您的解决方案是如何工作的:)。虽然我仍然需要点击 OK 17 次才能离开消息框到Err_Label，但好消息是，我至少可以在那里报告错误发生在哪一行。如果我在那里注释掉exit sub，我可以继续代码的进度。所以回到我的问题 - 没有办法自动化代码来处理这个错误然后恢复 - 不需要我的手动干预？