请老师写个采集股票数据的代码

xmyjk · 发表于 2011-3-30 12:46

原帖由 lixjun 于 2011-3-30 09:23 发表
多谢老师深夜还来帮忙，辛苦了！DDX在线的两个脚本都试了试，第一个有很多重复股票，还有不少股票没能显示。第二个脚本好像执行一会就没反应了。DDX在线估计做了限制，在网页里只能点击前7个页面。不好做的话，可以试 ...

晚上有空再该下DDX的，
散户大家庭论坛已经有了，见
http://club.excelhome.net/viewth ... =1139642#pid4723114

lixjun · 发表于 2011-3-31 16:03

超牛网的那个脚本，经常不能更新数据，无论怎么点按钮，都是旧数据。试了试用EXCEL里的WEB查询刷新一下，就能更新了。麻烦老师能否增加每次更新数据时都新一下网页和显示网页更新时间的功能。
另外从论坛里下载了散户大家庭的脚本，自己又尝试加进创业板的股票。结果创业板的股票没排在最后，而是挤进了深圳的股票当中。另外这个脚本运行起来很占系统资源，电脑要好几分钟没反应。麻烦老师给优化一下。多谢了！！

散户大家庭.rar (17.31 KB, 下载次数: 151)

[ 本帖最后由 lixjun 于 2011-3-31 16:15 编辑 ]

xmyjk · 发表于 2011-3-31 21:12

超牛网的，我晚上试过好几次，都可以用啊，我刷新不了的时候，网页也刷新不了啊，估计不是程序的问题，是服务器的问题吧。
还是上次数据的问题估计是因为没取到新的正确的数据，程序没有加入清楚上次数据的判断，因此就又把上次复制了下。。。

QUERYTABLE做也是行啦，但是估计速度没有XMLHTTP做快，我刚才试了下，慢很多。。。有时侯也会就莫名其妙卡死了。。。

散户大家庭的是因为：你运行完一次取数后，要清空一次ARR()数组

不然，你下一次仅仅是在上次一的基础上改写ARR()数组

并不是你的创业板跑到深市的里面了，是你创业板的数据维度没有深市大，仅仅更改原深市的数组的一部分，又将剩余的部分也再次导入了

你会发现，深市的最后一些数据其实出现在表里面有两次的

[ 本帖最后由 xmyjk 于 2011-3-31 21:29 编辑 ]

xmyjk · 发表于 2011-3-31 21:16

楼主看来还是有满有编程基础的，以上几个个网址，其实你自己也大部分都做出来了

大数据量的网站数据的采集，我喜欢用XMLHTTP做，因为他快，仅仅取到源代码就可以采集了，但是速度的背后其实就是CPU的高速运转

特别是散户大家庭，三个网址加起来几千条数据，每条里面还有30个子集合，其实数组写的代码很漂亮，但是非常耗系统资源。耗资源是理所当然的了，鱼和熊掌不可兼得嘛

[ 本帖最后由 xmyjk 于 2011-3-31 21:17 编辑 ]

xmyjk · 发表于 2011-3-31 21:20

原帖由 lixjun 于 2011-3-30 09:23 发表
多谢老师深夜还来帮忙，辛苦了！DDX在线的两个脚本都试了试，第一个有很多重复股票，还有不少股票没能显示。第二个脚本好像执行一会就没反应了。DDX在线估计做了限制，在网页里只能点击前7个页面。不好做的话，可以试 ...

DDX网站第七页以后就不行了，确实。即使XMLHTTP也取不到，重复是因为第七页后面的数据其实没有，老样子，没有清空数据，程序其实是重复第七页的采集，重复到第41页，这么多遍，肯定重复次数很多了。。。

xmyjk · 发表于 2011-3-31 21:23

原帖由 lixjun 于 2011-3-30 00:57 发表
多谢上旋下弦月老师！太感谢了！！
我从本论坛下载了个很早前的附件，照猫画虎改成了超牛网的。只是每页第一行不显示，研究了半天也不知问题出在哪里。采集速度比您的慢许多，只是想学习一下，麻烦老师给 ...

IE/webbrowser做的，要加载页面的完毕才能采集的，速度当然慢了。。。

[ 本帖最后由 xmyjk 于 2011-3-31 21:24 编辑 ]

xmyjk · 发表于 2011-3-31 21:37

原帖由 lixjun 于 2011-3-30 00:57 发表
多谢上旋下弦月老师！太感谢了！！
我从本论坛下载了个很早前的附件，照猫画虎改成了超牛网的。只是每页第一行不显示，研究了半天也不知问题出在哪里。采集速度比您的慢许多，只是想学习一下，麻烦老师给 ...

你少了一行的原因如下：
arr1 = Split(strTmp, "</TR>") ' 按行分隔
For j = 1 To UBound(arr1) - 1
arr2 = Split(arr1(j), "</TD>") ' 按列分隔

你看J=1，我明白你的意思，你想把原表头去除，但是你的原表头和第一行的数据时连在一起的，导致你去表头的数据，把你的第一行也给干掉了。。

[ 本帖最后由 xmyjk 于 2011-3-31 21:41 编辑 ]

lixjun · 发表于 2011-3-31 22:08

原帖由 xmyjk 于 2011-3-31 21:12 发表
超牛网的，我晚上试过好几次，都可以用啊，我刷新不了的时候，网页也刷新不了啊，估计不是程序的问题，是服务器的问题吧。
还是上次数据的问题估计是因为没取到新的正确的数据，程序没有加入清楚上次数据的判断，因 ...

多谢老师详细解答！！慢慢领会！我一点VB的基础都没有，股票公式凑合能编点简单的。最近都是按照论坛里的大师的脚本，照猫画虎，不过发现EXCELVBA真的很有意思，慢慢学吧！散户大家庭那个脚本，您讲的对我来说还是太深奥了。还是麻烦老师给做出来吧。有两个就够了。超牛网的脚本速度快，但这个网站的数据经常不太精确，盘中看看还行。散户大家庭的脚本虽然速度慢，但数据准确，每天收盘时导入一下就行了。多谢了！！

xmyjk · 发表于 2011-3-31 22:44

散户大家庭那个其实是狼版的代码，我也是学习下改过来的。

狼版乃真牛人也~

行，我等会改下，刚才有事出去了下。

[ 本帖最后由 xmyjk 于 2011-3-31 22:47 编辑 ]

xmyjk · 发表于 2011-3-31 23:39

试看看，如何？

		自动登录	找回密码
密码			免费注册

[求助] 请老师写个采集股票数据的代码

回复 11楼 xmyjk 的帖子