构建JSON对象并从Excel VBA发送它

Question

我想从Excel VBA构建以下JsonObject并使用POST查询将其发送到Web服务器：

{
    "processDefinitionId":"7892112646445148463",
    "variables":[{"name":"environment","value":"DEVOO"},
                 {"name":"srvName","value":"SRVTEST"},
                 {"name":"srvType","value":"Cloud"}]
}