Excel VBA发送到MSXML2.XMLHTTP不起作用

我在ExcelVBA中有以下代码，直到昨天它还运行得很好。 现在，它在尝试检查URL时失败。。但是URL确实存在

它在以下行失败：oXHTTP.send（转到haveError）

sURL如下所示，确实存在：

有什么问题吗

---

谢谢

请考虑在错误句柄块中添加一条消息，该消息提供了更多信息，可以通过使用

MSXML2.ServerXMLHTTP

而不是

MSXML2.XMLHTTP

来解决

请参阅此以获取更多信息

即时窗口中的输出

TRUE

Function HttpExists(sURL As String) As Boolean

    Dim oXHTTP As Object
    Set oXHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    If Not UCase(sURL) Like "HTTP:*" Then
        sURL = "http://" & sURL
    End If

    On Error GoTo haveError
    oXHTTP.Open "HEAD", sURL, False
    oXHTTP.send
    HttpExists = IIf(oXHTTP.Status = 200, True, False)
    Exit Function

haveError:
    MsgBox Err.Number & " - " & Err.Description, vbCritical
    HttpExists = False
End Function


Sub RunFct()
    Dim output As Boolean

    output = HttpExists("http://www.google.com/finance/historical?q=COF&startdate=Jan+1%2C+2017&enddate=Dec+31%2C+2017&num=30&ei=WLQtWaAfiMOxAbeYutgE&output=csv")
    Debug.Print output
End Sub

TRUE