通过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