0

我不明白为什么 URL 在任何 Web 浏览器中都有效,但在从 Excel vba 调用时突然无效。我正在尝试调用一个 API,我的代码中的那个现在应该返回 2005 年。我只想显示响应以表明该 url 有效,但它在 Excel 中不起作用,但是这很好用浏览器。我在这里缺少什么吗?

Sub testingstuff()


Dim URL As String: URL = "https://api.pentondata.com?request_type=vinserial&make=Vermeer&serialnumber=1VRY1119351005665"
Dim Http As New WinHttpRequest
Dim Resp As String


    Http.Open "GET", URL, False
    Http.Send
    Resp = Http.ResponseText
    Debug.Print Resp

End Sub
4

1 回答 1

0

我认为这是您的网址中的一个简单错误。在 .com 之后添加反斜杠

当您将 URL 粘贴到浏览器中时,您会注意到浏览器会自动为您执行此操作。

Dim URL As String: URL = "https://api.pentondata.com/?request_type=vinserial&make=Vermeer&serialnumber=1VRY1119351005665"
于 2013-10-28T15:35:58.200 回答