求助:如何抓取东方财富财经日历数据

kings12333

Kaohsing 发表于 2017-10-5 00:03
东方财富网返回的数据大部分都是json格式，该网页也不例外。 Split(Split(v, "[""")(1), """]")(0) '使用 ...

老板，你来搞搞

Kaohsing

kings12333 发表于 2017-10-5 08:11
老板，你来搞搞

仔细查看你原来的那个帖子吧

Kaohsing

把网址改成如下:http://data.eastmoney.com/DataCenter_V3/cjrl/getData.ashx?&pagesize=500&page=4&js=var%20brqVJlBI&param=&sortRule=1&sortType=ConferenceDate&code=&startDateTime=2017-10-04&endDateTime=2017-10-30&Type=all&rt=50236297"、 再用split、正则或js函数解析即可。

五指山888

YZC51 发表于 2017-10-5 00:02
请看附件

yzc51老师做的太精致了，问题是我没讲清楚，问题是：
1.不要全部数据，只要财经会议数据，见上传附图。
2.8月份只能取10天，9月份只能取3天，10月份只能取8天，超过就会 在Range("a3:s" & zz) = arr这句卡住。
谢谢了

五指山888

phsu 发表于 2017-10-4 21:15
以下程式可擷取10月2日至10月31日的資料。
Sub 財富財經日曆數據()
    Dim JsStr As String

谢谢push老师出手相助，最好能取财经会议数据，不要全部数据，这怪我没讲清楚，谢谢了

五指山888

kings12333 发表于 2017-10-5 08:10
数据可取到，但感觉不全，能不能避开只要中国股市的数据，有些代表股未提取到数据

这是我没讲清楚

五指山888

jinsha2002 发表于 2017-10-4 21:43
以下程式可擷取10月2日至10月31日的資料。
Sub 財富財經日曆數據()
    Dim JsStr As String

和push老师的一样？谢谢关注

五指山888

Kaohsing 发表于 2017-10-5 00:03
东方财富网返回的数据大部分都是json格式，该网页也不例外。 Split(Split(v, "[""")(1), """]")(0) '使用 ...

谢谢参与提示

五指山888

YZC51 发表于 2017-10-5 00:02
请看附件

我早就回复了，为啥还没通过审核？

五指山888

phsu 发表于 2017-10-4 21:15
以下程式可擷取10月2日至10月31日的資料。
Sub 財富財經日曆數據()
    Dim JsStr As String

我上午就回复phsu老师了，到现在还没通过审核？为啥打开这个网站的网页会很慢，回复审核通过也很慢
phsu老师只取财经会议数据可以吗？