将json字符串作为post请求发送时错误的字符串参数

Question

我在Excel中的VBA宏中使用了以下代码：

Sub Macro1()

Dim URL As String, JSONString As String, objHTTP As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "xxxxx"
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 = "{""name"": ""long"",""startDate"": 12345,""endDate"": 67890,""status"": ""in progress""}"
objHTTP.send JSONString
Debug.Print objHTTP.Status
Debug.Print objHTTP.responseText

End Sub

在即时窗口中，我收到了以下错误：

400 Apache Tomcat/8.0.28-错误报告1{font-family：Tahoma,Arial,sans-serif；color：white；background-color:#525D76；font-size:22px；}H2{font-family：Tahoma,Arial,sans-serif；颜色：白色；背景颜色:#525D76；字体大小:16px；}H3{font-family：Tahoma,Arial,sans-serif；颜色：白色；背景颜色:#525D76；字体大小:14px；}正文{font-family：Tahoma,Arial,sans-serif；颜色：黑色；背景颜色：白色；}B{font-family：Tahoma,Arial,sans-serif；颜色：白色；背景颜色:#525D76；}P{font-family：Tahoma,Arial,sans-serif；background：white；color：black；font-size：12px；}A{color：black；}A.name{color：black；}.line{height:1px；background-color:#525d76；border:none；}

说明客户端发送的请求语法不正确。

我不知道怎么解决，请帮帮我！

Answer 1

I solved this problem:

Sub Macro1()
Dim URL As String, JSONString As String, objHTTP As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "xxxxx?name=long&startDate=12345&endDate=67890&status=in progress"
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
Debug.Print objHTTP.Status
Debug.Print objHTTP.responseText
End Sub