如何使用VBA将JSON文件和参数发送到REST WebService

我想使用Excel / VBA将json文件和几个参数发布到REST WebService。 我设法发送json文件，但我不知道如何包含额外的参数。 有没有办法做到这一点？

我使用的VBA代码如下所示：

Dim URL As String, objHTTP As Object Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "http://localhost:8080/services/data/" objHTTP.Open "POST", URL, False objHTTP.SetRequestHeader "Content-type", "application/json" objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" 'objHTTP.SetRequestHeader "id", "1234" objHTTP.Send json_table 

正如您在注释掉的行中看到的那样，我尝试将参数作为RequestHeader发送，但这也不起作用。

我也负责WebService，以便可以在那里更改REST接口。 使用Java我想通过使用@QueryParam（“id”）或类似的读取参数。

我不想在json“文件”中包含参数，因为它的结构匹配我正在使用的实体。