VBA解析json示例1

最新推荐文章于 2024-10-28 12:16:01 发布

XBMY

最新推荐文章于 2024-10-28 12:16:01 发布

阅读量1.6k

点赞数

分类专栏： VBA

可以分享

本文链接：https://blog.youkuaiyun.com/cxb2011/article/details/109063177

版权

本文将通过实例演示如何在VBA中解析JSON数据，帮助读者掌握使用VBA与JSON交互的基本技巧，提升办公自动化效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

最低0.47元/天解锁文章