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

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

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

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

代码如下：


Function GetJson()Dim http
Dim aa As Stringapi = "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 Thenaa = http.responseTextGetJson = aa
ElseMsgBox "Cannot get api"GetJson = ""
End IfEnd FunctionSub GenerateHoliday()Cells.ClearContentsCells(1, 1) = "节假日"
Cells(1, 2) = "要上班的周末"jsonstr = GetJsona = Split(jsonstr, Chr(34) & "holiday" & Chr(34) & ":[")
b = Split(a(1), "]," & Chr(34) & "holidaylist" & Chr(34))c = Split(b(0), "desc")
f_rowno = 2
w_rowno = 2
For i = 1 To UBound(c)d = Split(c(i), Chr(34) & "list" & Chr(34) & ":[")(1)e = Split(d, "]")(0)
'    Cells(i, 1) = ef = Split(e, "{" & Chr(34) & "date" & Chr(34) & ":" & Chr(34))For j = 1 To UBound(f)h = Split(f(j), Chr(34))d = h(0)Status = h(4)If Status = "1" ThenCells(f_rowno, 1) = df_rowno = f_rowno + 1ElseCells(w_rowno, 2) = dw_rowno = w_rowno + 1End IfNext jNext iColumns("A:A").Select
ActiveSheet.Range("$A$1:$A$269").RemoveDuplicates Columns:=1, Header:=xlYes
Columns("B:B").Select
ActiveSheet.Range("$B$1:$B$269").RemoveDuplicates Columns:=1, Header:=xlYesCells(1, 1).SelectEnd Sub

Excel VBA自动生成本年度节假日及补假相关推荐

Excel·VBA自动生成日记账的对方科目
如图:根据日记账/序时账的日期.凭证号为一组,按借贷方向生成相反的科目,并写入H列.可能存在一对一.一对多.多对多等情况的账目目录数组法遍历.判断.写入测试结果多对多问题处理测试结果数组法 ...
Excel VBA: 自动生成巡检报表并通过邮件定时发送
目录环境说明逻辑结构效果说明及截图 ①. 安装SecureCRT ②. 自动巡检脚本 ③. 数据检索并FTP传送 ④. 安装Excel 2013 ⑤. 安装Serv-U ⑥. 自动生成图表并邮件 ...
Excel VBA 自动添加新行并递增ID
Excel VBA 自动添加新行并递增ID 用Excel 2010的VBA功能来处理数据,主要根据IP网段和网段IP个数,来生成每个IP地址,并进行ID编号. Sub AutoInsert()Line ...
使用java通过固定的excel模板自动生成数据库表的ddl建表语句
有时候要建很多表或一个表有很多字段,一个个复制字段弄太麻烦了,为了提高点工作效率,写了个小工具通过固定的excel模板自动生成基础的ddl建表语句 maven依赖  ...
表格自动生成流程图 python_Visio竟然可以根据Excel数据自动生成流程图，这也太牛了吧!...
前段时间受邀去到一家制造型企业培训Excel,在课前沟通的阶段,客户提出一个需求,希望在课程中能介绍一下如何在Excel中绘制流程图.虽然Excel是一个功能非常强大的数据分析工具,但它也不是一个万金 ...
Excel·VBA模板生成文件
不同于<python实现Excel邮件合并>,字符串内容替换生成文件,仅复制整行数据插入模板中生成工作表,单独保存为工作簿,但如果存在同名工作簿文件,则将工作表附加在该工作簿中 Sub 模 ...
Excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Ob ...
VBA自动生成excel的表单及链接的方法
自动生成表单 Sub generateMenu()Dim stCol As Integer, stRow As IntegermenuName = InputBox("MenuSheetNa ...
Excel VBA | 自动添加序列号
提示:程序代码是根据实际工作的需求编写的,仅供参考学习使用. 文章目录一.需要实现的功能 :自动添加序列号二.程序代码程序代码(一) 程序代码(二) 一.需要实现的功能 :自动添加序列号操作软 ...

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

Excel VBA自动生成本年度节假日及补假相关推荐

最新文章

热门文章