Question

我不明白为什么网址在任何网页浏览器中有效，但从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

Answer 1

我认为这是您网址中的一个简单错误。在.com

之后添加反斜杠

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

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

URL在浏览器中有效，在Excel中无效

1 个答案: