VBA发送GET请求返回响应不完整、Postman运行正常问题咨询

问题原因 #

MSXML2.XMLHTTP组件存在固有特性：会自动丢弃GET请求send方法传入的请求体，即使配置了对应的请求头也不会生效。Postman对非标准的GET带请求体场景做了兼容处理，因此可以正常得到预期返回。

解决方案 #

方案1：替换请求组件（最快修复） #

改用WinHTTP.WinHTTPRequest.5.1组件，该组件支持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
'______________________________________________________________
'HTTP请求URL及其他配置
Url = "http://rms.digitory.com:300/Details"

' 替换为WinHTTP组件
Set hReq = CreateObject("WinHTTP.WinHTTPRequest.5.1")
    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"
        ' 无需手动设置Content-Length，组件会自动计算生成
        .send JsonAddBody ' 去掉括号避免不必要的类型转换
    End With

方案2：调整参数传递逻辑（符合HTTP标准，兼容性更好） #

GET请求携带请求体本身不符合RFC HTTP规范，兼容性存在很大隐患，有条件可优先选择以下两种更稳妥的实现方式：

• 与服务端协商将接口调整为POST请求接收参数，所有HTTP客户端均原生支持POST携带请求体的场景
• 将请求参数编码后拼接为URL查询字符串，直接附加到接口地址后方，示例：

Url = "http://rms.digitory.com:300/Details?tenantId=100002&startDate=2021-08-22&endDate=2021-08-23"

内容的提问来源于stack exchange，提问作者Aldrin Thomas