VBA网抓application/json的网抓怎么写！

Question

Sub hhh()

Dim x As MSXML2.XMLHTTP60
Set x = New MSXML2.XMLHTTP60
Dim a As String
Dim data As String

With x
    .Open "POST", "https://main.xlbsoft.com/tms/hxl.tms.transportorder.read", False
    .setRequestHeader "Content-Type", "application/json"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36"
    .setRequestHeader "Cookie", "有的"

    
    data = "{transport_order_id:'TS6655500006620',store_id: 6655500039171,store_name: '有数据',}"
    .send (data)
    a = .responseText
Range("m1") = a
    

End With
End Sub

抓出来的结果是这个：{"timestamp":"2024-08-29 21:24:30","status":400,"error":"Bad Request","path":"/tms/hxl.tms.transportorder.read"}

不知道是不是data写错了！帮忙指正下！蟹蟹

​

Answer 1

以下回复引自免费微信小程序：皆我百晓生。 如问题解决，还请采纳。如仍有疑问，请回复留言或私信博主，以便获得更精准的帮助。

这个问题似乎在询问如何使用VISUAL STUDIO 2019或更高版本中的XMLHTTPREQUEST对象来解析JSON数据。这通常涉及到创建一个MSXML2.XMLHTTP60对象并执行GET请求以获取JSON数据，然后将其转换为字符串类型的数据。以下是解决此问题的基本步骤：

1. 首先，在VISUAL STUDIO中打开一个新的XML文档。
2. 在DOCUMENT.TEXT属性中添加以下代码：

<MYXML>
    <MYELEMENT NAME="DATA" TYPE="STRING">
        <MYPROPERTY NAME="VALUE" TYPE="STRING"/>
    </MYELEMENT>
</MYXML>

1. 然后，在HHH()函数中，你可以像这样调用这个XML文件：

DIM X AS MSXML2.XMLHTTP60
SET X = NEW MSXML2.XMLHTTP60

X.OPEN "HTTP://EXAMPLE.COM/DATA.JSON"

DIM A AS STRING
DIM DATA AS STRING

A = X.GETFIRSTCHILD("DATA").ATTRIBUTE("VALUE") AS STRING

DATA = A

1. 这里你将得到包含在DATA字符串中的JSON数据。

注意：上述代码示例需要替换为实际的URL和XML结构。如果URL是真实的，可能需要调整XML字符串以匹配你的需求。此外，这段代码只适用于简单的XML操作。对于更复杂的需求（例如处理JSON字符串中的键值对、解析多个元素等），可能需要使用其他库或方法。