0

我正在为我的公司制作一份报告，该报告从 GET API 请求中获取值，并将收到的值与从其他地方收到的值进行交叉比较。我面临的问题是 GET 请求在 Postman 上完美运行，但是当我通过 VBA 发送相同的请求时，返回的响应好像我附加的主体没有到达服务器一样。请求附带的正文需要指明从哪个日期到哪个日期以及服务器过滤响应所需的其他详细信息，没有它，响应与我现在收到的相同，所以我相当确定这是问题所在但我不知道如何强制 VBA 将正文与 GET 请求一起发送。

JsonAddBody = Digi.Cells(1, 27).Value
Debug.Print JsonAddBody

'{"tenantId": "100002","startDate":"2021-08-22","endDate":"2021-08-23"}

JsonAddBodyLen = Digi.Cells(2, 27).Value
Debug.Print JsonAddBodyLen
'______________________________________________________________
'URL and other settings for HTTP request
Url = "http://rms.digitory.com:300/Details"

Set hReq = CreateObject("MSXML2.XMLHTTP")
    With hReq
        .Open "GET", Url, False
        .setRequestHeader "Authorization", "Bearer " & authKey
        .setRequestHeader "User-Agent", "Mozilla 5.0"
        .setRequestHeader "Accept", "application/json"
        .setRequestHeader "Content-type", "application/json"
        .setRequestHeader "Content-Length", "" & JsonAddBodyLen
        .send (JsonAddBody)
    End With
4

0 回答 0