VBA请求接口数据

最新推荐文章于 2025-03-08 20:30:50 发布

取啥名！

最新推荐文章于 2025-03-08 20:30:50 发布

阅读量1.2k

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/u012735516/article/details/130080173

版权

VBA 专栏收录该内容

2 篇文章

订阅专栏

该代码段展示了一个VBA宏，用于向指定URL（http://96.0.32.46/xxxxxxxx）发送POST请求，请求体数据来源于Sheet1的B1单元格，并将响应数据写入B3单元格。请求头包含了多种HTTP头部信息，如Content-Type和User-Agent。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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