EXCEL网络请求

Sub post()
    Dim HttpReq As Object
    Set HttpReq = CreateObject("MSXML2.XMLHTTP")
    '请求方式和URL地址
    HttpReq.Open "post", "http://localhost:88/api/php.php", False
    '设置请求头
    HttpReq.setrequestheader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
   '定义请求变量信息
   
   date1 = Range("b1")
   date2 = Range("b2")
   
   
    HttpReq.Send "date1=" & date1 & "&date2=" & date2 & "&doctype=json"
    ' 捕获连接信息
    Do While HttpReq.readyState <> 4
        DoEvents
    Loop
    
    Set js = CreateObject("ScriptControl")
    js.Language = "JScript"
    da = HttpReq.responseText

    Debug.Print da
    Set y = js.eval("(" & da & ")")
    i = 4
  
    'Range("b3") = y.vbdata
    'Debug.Print y
 '遍历json数据
     For Each ss In y.vbdata
        Range("a" & i) = ss.gx_jbh
        Range("b" & i) = Format(ss.gx_date, "yyyy-mm-dd")
        
        Range("c" & i) = ss.gx_tw_weight
       
        i = i + 1
     Next
     
  
    
    
     'Debug.Print y.vbdata
    
End Sub
```