VBA发送GET、POST请求

原创文章,欢迎转载:http://miao.blog/article/vba-http-request

下边是从腾讯的一个时间API取数据的示例:

Public Function getTimeFromAPI() As String
    On Error GoTo ERR_HANDLING

    Set HttpReq = CreateObject("MSXML2.ServerXMLHTTP")
    url = "http://cgi.im.qq.com/cgi-bin/cgi_svrtime"
    HttpReq.Open "get", url, False
    HttpReq.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    HttpReq.send
    
    getTimeFromAPI = HttpReq.responseText
    Exit Function
ERR_HANDLING:
    getTimeFromAPI = Date
End Function
推荐阅读
VBA(64位)生成UTF-8文件的代码
VBA中进行copy和paste的时候,无规律的出现 “类Worksheet的Paste方法无效”错误 怀疑是电脑太快,copy操作还没有完成,就直接运行paste,导致paste出错。 所以在copy操作后,sleep一小段时间,结果真的解决了问题。
使用VBA调用Outlook发送邮件
评论