MaFeng

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":"上市

Sub test() Dim url As String, Http As WinHttpRequest, rsp As String url = " " Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") With Http .Open "GET", url, False .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64;