一个老人,求助.多页面数据下载

cexolpgf

上年龄了.想学又太多搞不懂,还是求助有能力的人吧.
https://data.eastmoney.com/zlsj/2022-09-30-1-2.html
现在只能一次下500,怎样加个循环,谢谢各位老师有时间帮帮

ftgli

.Open "GET", "https://data.eastmoney.com/dataapi/zlsj/list?date=2022-09-30&type=1&zjc=0&sortField=HOULD_NUM&sortDirec=1&pageNum=1&pageSize=500", False
看到那个pageSize=500没有？很明显就是改这里了

ftgli

不好意思 ，一开始看错误导你了，这个是对的，想要多少页改pageNum的循环就行了

cexolpgf

ftgli 发表于 2023-3-2 20:01
不好意思 ，一开始看错误导你了，这个是对的，想要多少页改pageNum的循环就行了

感谢老师,抽时间帮我解决了问题,,正是我想得到的,有文化真好.

洋务德雷

ftgli 发表于 2023-3-2 20:01
不好意思 ，一开始看错误导你了，这个是对的，想要多少页改pageNum的循环就行了

1. With CreateObject("Msxml2.XMLHTTP")
   
2.         .Open "GET", "https://data.eastmoney.com/dataapi/zlsj/list?date=2022-09-30&type=1&zjc=0&sortField=HOULD_NUM&sortDirec=1&pageNum=" & pageNum & "&pageSize=500", False
   
3.         .Send
   
4.         str1 = Split(Split(Split(.ResponseText, "[")(1), "]")(0), "{")
   
5.     End With

复制代码

代码里面pageNum 没有加入到里面，应该修改一下才可以实现。

cexolpgf

洋务德雷 发表于 2023-3-2 22:34
代码里面pageNum 没有加入到里面，应该修改一下才可以实现。

对的,是这样的,好心人.

perfect131

cexolpgf 发表于 2023-3-3 01:46
对的,是这样的,好心人.

没那么复杂
pageSize=5000即可

https://data.eastmoney.com/dataa ... 1&pageSize=5000