我正在尝试从Excel中的VBA应用程序发送JSON对象。下面的代码正确发送了请求，但是我无法弄清楚如何使用正文中的JSON对象发出请求。
Sub Post()
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://localhost:3000/test"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "Content-type", "application/x-www-form- urlencoded"
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("test=6")
End Sub
例如，如果我尝试发送“ {test：6，test2：7}”并在服务器上记录请求的正文，则会得到{'{parts：6，test：7}'：''}
您可能已经知道，JSON结构确实会引起严重的麻烦。在你的情况，我会说，它的所有有关的报价，你可以看到在这里，如果你尝试验证自己{test:6, test2: 7}。
试试下面的代码。在我看来，这似乎是合理的：
Sub Post()
Dim URL As String, JSONString As String, objHTTP as Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://localhost:3000/test"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "Content-type", "application/x-www-form- urlencoded"
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
JSONString = "{""test"": 6,""test2"":7}"
objHTTP.Send JSONString
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句