VBA解析json示例1

var cHIsyYjE = {"rc":1,"me":null,"TotalCount":4048062,"pages":1000,"data":[{"codes":[{"short_name":"金龙鱼","market_code":"0","ann_type":"A","stock_code":"300999"}],"notice_date":"2020-10-14 00:00:00","columns":[{"column_code":"001003002004","column_name":"上市保荐书"}],"art_code":"AN202010131421159756","title":"金龙鱼:中信建投证券股份有限公司关于公司首次公开发行股票并在创业板上市之上市保荐书"},{"codes":[{"short_name":"金龙鱼","market_code":"0","ann_type":"A","stock_code":"300999"}],"notice_date":"2020-10-14 00:00:00","columns":[{"column_code":"001003002002","column_name":"法律意见书"}],"art_code":"AN202010131421159751","title":"金龙鱼:北京市天元律师事务所关于公司首次公开发行股票并在深圳证券交易所创业板上市的法律意见"}],"dataUrl":"http://np-anotice-stock.emapd.com//api/security/ann?page_size=2&page_index=2&ann_type=A&stock_list=&f_node=0&s_node=0&begin_time=&end_time=&client_source=app"};

Option Explicit

Sub main()
    Dim url As String, Http As WinHttpRequest, strJSON As String
    Dim db As Object, Sc As Object, a As Object, o As Object
    Dim count As Integer, pages As Integer, page As Integer
    Dim sheet As Worksheet, r As Long, codes As Object, cols As Object
    
    Rem 遍历 公告日期，股票代码，股票名称，分类，公告标题
    Set sheet = Sheets(1)
    sheet.[a1].Resize