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工具发布后,每次修改都需要通知大家更新,本问的代码,实现了打开工具自动获取最新版本,不更新的话自动关闭工具,这样就能保证工具更新的即时性和强制性。
传统的方式配置xlam比较麻烦,这段代码可以让你双击打开xlam时自动安装或更新
使用VBA调用Outlook发送邮件
评论