VBA的JSON怎么加变量？

Question

application/json类的格式怎么加变量进去，如图框选的数据，怎么正确书写格式才能将变量加进去替换框选的固定数据？

数据

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要将变量添加到JSON数据中，可以使用以下方法：

1. 首先，确保已经定义了需要的变量。例如，假设我们有一个名为transport_order_id的变量和一个名为store_id的变量。

2. 然后，在构建JSON数据时，使用这些变量替换固定值。例如：

data = "{""transport_order_id"":""" & transport_order_id & """,""store_id"":""" & store_id & """,""store_name"":""""}

这样，transport_order_id和store_id变量的值将替换掉原来的固定值。完整的代码如下：

Sub hhh()
    Dim X As MSXML2.XMLHTTP60
    Set x = New MSXML2.XMLHTTP60
    Dim a As String
    Dim data As String
    Dim transport_order_id As String
    Dim store_id As String
    
    transport_order_id = "TS6655500006616"
    store_id = "6655500039171"
    
    With x
        .Open "POST", "https://main.xlbsott.cvia/hx1.tmeansportorder.read", False
        .setRequestHeader "Content-Type", "Mon:11 U-C/tto T . .../mr."
        .setRequestHeader "User-Agent", "ADDLeweun/537"
        .setRequestHeader "Cookie", "J00-1918"
        .setRequestHeader "msg", "suc ss 5"
        
        data = "{""transport_order_id"":""" & transport_order_id & """,""store_id"":""" & store_id & """,""store_name"":""""}"
        .send (data)
        a = .responseText
        Range("m1") = a
    End With
End Sub

请注意，这个示例中的URL和其他请求头可能需要根据实际情况进行修改。