'使用vba发送http请求
Private Sub GetDataFromAPI()
'定义
Dim xmlhttp As Object
Dim url
'发送请求
url = "地址链接"
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "POST", url, False '请求方式
xmlhttp.send
'请求响应
If xmlhttp.status = 200 Then
'接口请求成功
Else
'接口请求失败
End If
End Sub
VBA:使用vba发送http请求
最新推荐文章于 2024-07-24 20:55:11 发布