东方财富网天天练

onlycxb

第一季度业绩预告，请测试， test.rar (71.06 KB, 下载次数: 254)

2015-4-4 08:06 上传

点击文件名下载附件

五指山888

onlycxb 发表于 2015-4-4 08:07
第一季度业绩预告，请测试，

onlycxb老师，先谢谢了！

五指山888

onlycxb 发表于 2015-4-4 08:07
第一季度业绩预告，请测试，

测试下来很好，特再次谢谢onlycxb老师

五指山888

onlycxb 发表于 2015-4-4 08:07
第一季度业绩预告，请测试，

onlycxb老师再请教一下，这段代码如何实现翻页，现在是不用翻页，全部下载下来了，能指定翻几页，这样每天就下载最新的几页，以前的就不要下载下来了，谢谢了，我自己研究了半天也想不出来如何加语句?

jinsha2002

onlycxb 老师 用了
P = Split(.responsetext, ",")(0) ‘实现不用翻页，全部下载

onlycxb 老师 的程序处理数据 快，下一页与下几页速度差别不大，

用不着“每天就下载最新的几页” 这个工作

onlycxb

五指山888 发表于 2015-4-4 16:12
onlycxb老师再请教一下，这段代码如何实现翻页，现在是不用翻页，全部下载下来了，能指定翻几页，这样每天 ...

改变 P 值就可以了。可手工输入需要查询的记录数目。

五指山888

onlycxb 发表于 2015-4-4 20:47
改变 P 值就可以了。可手工输入需要查询的记录数目。

谢谢！回复很难，说内部错误，所以简单回复

五指山888

jinsha2002 发表于 2015-4-4 18:23
onlycxb 老师 用了
P = Split(.responsetext, ",")(0) ‘实现不用翻页，全部下载

谢谢！写多了就不能回复了

五指山888

jinsha2002 发表于 2015-4-4 18:23
onlycxb 老师 用了
P = Split(.responsetext, ",")(0) ‘实现不用翻页，全部下载

今天不知能回复吗？就是不知道p值如何改，以为数据后面还要处理，所以全部下载处理量越来越大，想设定几页，最好能自动设别下载过的不下载，但可能比较难，所以采取少下载几页来解决。

onlycxb

五指山888 发表于 2015-4-5 21:34
今天不知能回复吗？就是不知道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