URL がどの Web ブラウザーでも有効であるのに、Excel vba から呼び出すと突然無効になる理由がわかりません。API を呼び出そうとしていますが、コード内の 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