Excel VBA自动生成本年度节假日及补假

最新推荐文章于 2022-12-11 21:25:04 发布

不，是你的杰宝

最新推荐文章于 2022-12-11 21:25:04 发布

阅读量3.1k

点赞数 3

分类专栏： VBA

本文链接：https://blog.csdn.net/weixin_45551676/article/details/108218680

版权

该博客介绍了如何使用Excel VBA结合百度的opendata API接口，通过解析JSON文件来自动获取并更新本年度的节假日及补假信息。

摘要由CSDN通过智能技术生成

利用了百度的opendata API接口，接口链接如下：

https://sp0.baidu.com/8aQDcjqpAAV3otqbppnN2DJv/api.php?query=2019&resource_id=6018

再去解析JSONfile，就可以获取节假日了。

代码如下：


Function GetJson()

Dim http
Dim aa As String

api = "https://sp0.baidu.com/8aQDcjqpAAV3otqbppnN2DJv/api.php?query=" & CStr(Year(Date)) & "&resource_id=6018"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "POST", api, False
http.send ""

If http.Status = 200 Then
    aa = http.responseText
    GetJson = aa
Else
    MsgBox "Cannot get api"
    GetJson = ""