我如何使用VBA访问Excel的Open-Meteo的历史天气API？

Question

“运行时错误'-2146697209（800C0007）'无需数据可用的数据。

我可以看到源

在我的Web浏览器中，并从python调用它。

Public Sub openWeather()
   
    Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
    myurl = "https://archive-api.open-meteo.com/v1/archive?latitude=40.80&longitude=-74.31&start_date=2023-01-27&end_date=2023-02-23&hourly=temperature_2m"
    xmlhttp.Open "GET", myurl, False
    xmlhttp.send
    MsgBox (xmlhttp.responseText)
    
End Sub

注意，我也没有这个问题代替他们的预测API（例如，thisTarget）。有什么建议吗？

Public Sub openWeather()
    Dim xmlhttp As Object, myurl As String

    myurl = "https://archive-api.open-meteo.com/v1/archive?latitude=40.80&longitude=-74.31&start_date=2023-01-27&end_date=2023-02-23&hourly=temperature_2m"

    On Error Resume Next
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    If Err.Number <> 0 Then
        Exit Sub
    End If
    On Error GoTo 0

    xmlhttp.Open "GET", myurl, False, "", ""
    xmlhttp.send
    If xmlhttp.ReadyState = 4 Then
        MsgBox (xmlhttp.responseText)
    Else
        MsgBox ("xmlhttp.ReadyState =" & xmlhttp.ReadyState )
    End If
End Sub