通过VBA请求接口数据

Sub 登录接口()   
     Dim HttpReq As Object     
     Dim Pdata, Http As String          
     Set HttpReq = CreateObject("MSXML2.XMLHTTP.6.0")
	 '接口URL         
     Http = "http://96.0.32.46/xxxxxxxx"          
     '请求体
     Pdata = Sheet1.Range("b1").Value            
     HttpReq.Open "post", Http, False          
     HttpReq.SetRequestHeader "Accept", "*/*"     
     HttpReq.SetRequestHeader "Accept-Language", "zh-CN,zh;q=0.9"     
     HttpReq.SetRequestHeader "Cache-Control", "no-cache"     
     HttpReq.SetRequestHeader "Connection", "Keep-Alive"     
     HttpReq.SetRequestHeader "Content-Length", "0"     
     HttpReq.SetRequestHeader "Content-Type", "text/json"  
     HttpReq.SetRequestHeader "Host", "96.0.32.46"       
     HttpReq.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko"     
     HttpReq.SetRequestHeader "X-Requested-With", "XMLHttpRequest"               
     HttpReq.send Pdata          
     Do Until HttpReq.readyState = 4         
     DoEvents     
     Loop          
     If HttpReq.Status = 200 Then
     	'接口返回数据                  
        Sheet1.Range("b3").Value = HttpReq.responseText     
    End If  
End Sub