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"};
OptionExplicitSubmain()Dim url As String,HttpAs WinHttpRequest, strJSON AsStringDim db As Object,ScAs Object, a As Object, o AsObjectDim count As Integer, pages As Integer, page AsIntegerDim sheet As Worksheet, r As Long, codes As Object, cols AsObject
Rem 遍历 公告日期,股票代码,股票名称,分类,公告标题
Set sheet =Sheets(1)
sheet.[a1].Resize
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":"上市