|
![](https://clubstatic.excelhome.net/image/common/ico_lz.png)
楼主 |
发表于 2015-4-6 06:48
|
显示全部楼层
本帖最后由 onlycxb 于 2015-4-6 07:00 编辑
五指山888 发表于 2015-4-5 21:34 ![](http://club.excelhome.net/static/image/common/back.gif)
今天不知能回复吗?就是不知道p值如何改,以为数据后面还要处理,所以全部下载处理量越来越大,想设定几页 ... 修改这句
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
其中&p=1这句代表取第1页、&ps=" & P & "这句代表每页的记录数。
以每页20条记录为例,如取第5页的20条记录,可修改为(但此方法仅显示一页数据):
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=5&ps=20&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
如果想一次取100条记录,则直接修改为:
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=100&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
更简单的方法是直接修改P=split(.....)(0)这句为P=100
|
评分
-
1
查看全部评分
-
|