404 - VBA中未找到页面错误

时间:2014-04-03 02:16:03

标签: vba

我通常使用此代码下载网页的源代码:

With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://www.somewebsite.com/", False
.send
sHTM = .responseText
End With

Debug.Print sHTM

直到现在,这对我很有用,当我通常下载的其中一个网站开始为所有请求返回404错误时,即使我在浏览器中访问相同的链接时也没问题。

我甚至放弃了MSXML并回到了使用IE

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 0

    URL = "www.somewebsite.com/"
    IE.Navigate URL


    State = 0
    Do Until State = 4
    DoEvents
    State = IE.readyState
    Loop


    Debug.Print IE.document.body.innerHTML

这也为该特定网站返回404.

可能导致这种情况的原因是什么?

0 个答案:

没有答案