如何将此json编程转换为xml以通过vba提交

我有这个代码从航运网站。我可以像其他运营商一样提交到网关，但是他们没有格式化的xml示例。他们给出了这个示例，我想知道如何将其转换为格式正确的xml

curl -X POST \
https://api.rocketship.it/v1 \
-H 'Cache-Control: no-cache' \
-H 'Content-Type: application/json' \
-H 'x-api-key: YOUR_RS_API_KEY' \
-d '{
"carrier": "UPS",
"action": "track",
"params": {
    "username": "YOUR_USERNAME",
    "password": "YOUR_PASSWORD",
    "tracking_number": "1Z12345E0205271688"
}
}'

我只需要像提交到联邦快递或ups这样的标签。这是我向transpak提交的内容。它有xml和xmlhttp代码来提交它

XMLRequest1 = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi=" & Chr(34) & "http://www.w3.org/2001/XMLSchema- 
instance" & Chr(34) & " xmlns:xsd=" & Chr(34) & 
"http://www.w3.org/2001/XMLSchema" & Chr(34) & " xmlns:soap=" & Chr(34) & 
"http://schemas.xmlsoap.org/soap/envelope/" & Chr(34) & ">" & _
"<soap:Body>" & "<ShipmentInquiry xmlns=" & Chr(34) & "http://tempuri.org/" 
& Chr(34) & ">" & "<Housebill>" & trackingNumber & "</Housebill>" & _
"</ShipmentInquiry>" & "</soap:Body>" & "</soap:Envelope>"

---

任何帮助都将不胜感激。

我需要提交一个json字符串以获得json响应

XML_Request1 = "{" & Chr(34) & "carrier" & Chr(34) & ": " & Chr(34) & 
"fedex" & Chr(34) & "," & Chr(34) & "type" & Chr(34) & ": " & Chr(34) & 
"TRACKING_NUMBER_OR_DOORTAG" & Chr(34) & "," & _
Chr(34) & "action" & Chr(34) & ": " & Chr(34) & "track" & Chr(34) & "," & 
Chr(34) & "parameters" & Chr(34) & ": {" & Chr(34) & "key" & Chr(34) & ": " 
& Chr(34) & "key" & Chr(34) & "," & _
Chr(34) & "password" & Chr(34) & ": " & Chr(34) & "password" & Chr(34) & "," 
& Chr(34) & "meterNumber" & Chr(34) & ": " & Chr(34) & "meter number" & 
Chr(34) & "," & _
Chr(34) & "accountNumber" & Chr(34) & ": " & Chr(34) & "account" & Chr(34) & 
"," & Chr(34) & "service" & Chr(34) & ": " & Chr(34) & 
"GROUND_HOME_DELIVERY" & Chr(34) & "," & _
Chr(34) & "tracking_number" & Chr(34) & ": " & Chr(34) & trackingNumber & 
Chr(34) & "}}"

我使用json在线格式化程序来组合正确的字符串：

{
"carrier": "fedex",
"type": "TRACKING_NUMBER_OR_DOORTAG",
"action": "track",
"parameters": {
  "key": "YOURKEY",
  "password": "YOURPASS",
  "meterNumber": "YOURMETER",
  "accountNumber": "510087348",
  "service": "GROUND_HOME_DELIVERY",
  "tracking_number": "."
 }
}

---

我提交了有效负载并得到了有效响应。

json编程？@KolobCanyon是的，看起来像是json编程。我需要将json转换为xml。我用转换器转换了它，但我认为它不对。我需要将代码转换为vba。你确定他们支持XML吗？@TimWilliams好的，我刚刚发现他们不支持XML。我必须在vba中提交一个json字符串。我尝试将json字符串拼凑在一起，但它不起作用。上面说-H不是垃圾。如果我向网关提交正确的json字符串，它将起作用。你有什么想法吗？您将curl工具参数与json负载混淆了。

XML_Request1 = "{" & Chr(34) & "carrier" & Chr(34) & ": " & Chr(34) & 
"fedex" & Chr(34) & "," & Chr(34) & "type" & Chr(34) & ": " & Chr(34) & 
"TRACKING_NUMBER_OR_DOORTAG" & Chr(34) & "," & _
Chr(34) & "action" & Chr(34) & ": " & Chr(34) & "track" & Chr(34) & "," & 
Chr(34) & "parameters" & Chr(34) & ": {" & Chr(34) & "key" & Chr(34) & ": " 
& Chr(34) & "key" & Chr(34) & "," & _
Chr(34) & "password" & Chr(34) & ": " & Chr(34) & "password" & Chr(34) & "," 
& Chr(34) & "meterNumber" & Chr(34) & ": " & Chr(34) & "meter number" & 
Chr(34) & "," & _
Chr(34) & "accountNumber" & Chr(34) & ": " & Chr(34) & "account" & Chr(34) & 
"," & Chr(34) & "service" & Chr(34) & ": " & Chr(34) & 
"GROUND_HOME_DELIVERY" & Chr(34) & "," & _
Chr(34) & "tracking_number" & Chr(34) & ": " & Chr(34) & trackingNumber & 
Chr(34) & "}}"