Question

我搜索了类似的＆＃34; 403＆＃34;线程但无法找到答案。

我有以下有效且有效的网址 - www.investing.com/equities/apple-computer-inc-earnings

我的代码：

Sub GetSourceCode()

    Dim XMLHTTP As Object
    Dim URL As String
    Dim data As String

    URL = "http://www.investing.com/equities/apple-computer-inc-earnings"
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", URL, False
    XMLHTTP.send
    data = XMLHTTP.responseText
End Sub

然而，字符串＆＃34;数据＆＃34;返回时使用＆＃34; 403 Forbidden＆＃34;错误而不是源代码，这是我想要实现的。

任何解决方案或变通方法（或重复参考）都将受到高度赞赏。

由于

Answer 1

在.send

之前设置请求标头

XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

403 HTTP请求出错

1 个答案: