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

yuk_yu

学习ing.......

e9e

最近一直在想做个股票数据采集的excel，谢谢楼上所有热烈讨论的人了

在路上06

xmyjk 发表于 2011-4-13 13:43

您真是太热忱了！俺看回帖中一直都耐心有加，实在是功德无量啊！

goldowl2011

Thanks a lot.Good codes.

如小果1187

xmyjk 发表于 2011-3-29 23:33
[ 本帖最后由 xmyjk 于 2011-3-29 23:55 编辑 ]

老师。。下面这一句能不能详细解释一下？VBA刚入门，这个语句太复杂了。。谢谢先~
tmp() = Split(Split(Split(Replace(Replace(.responsetext, "'", ""), "],[", ""), "cnmyarray = new Array([")(1), "]);</script>")(0), ",")

kangatang

如小果1187 发表于 2012-8-16 16:27
老师。。下面这一句能不能详细解释一下？VBA刚入门，这个语句太复杂了。。谢谢先~
tmp() = Split(Split( ...

字符串处理，
试试加入一句
cells(1,1).value = .responsetext
运行完后，把cells(1,1)的内容复制到新建的txt文件，就会看到这个超长字符串。

你再 试试
sub testt
   tmp() = Split(Split(Split(Replace(Replace(cells(1,1).value, "'", ""), "],[", ""), "cnmyarray = new Array([")(1), "]);</script>")(0), ",")
   msgbox tmp(ubound(tmp))
End sub

如小果1187

kangatang 发表于 2012-8-16 19:03
字符串处理，
试试加入一句
cells(1,1).value = .responsetext

谢谢吖~看到回复太激动了，我试试看

如小果1187

再问一下各位，如果要采集数据的网站是需要登录的，怎么处理呢？谢谢

kangatang

如小果1187 发表于 2012-8-16 22:33
再问一下各位，如果要采集数据的网站是需要登录的，怎么处理呢？谢谢

先用代码实现登陆再进行后续操作。

如小果1187

kangatang 发表于 2012-8-17 09:09
先用代码实现登陆再进行后续操作。

如果是没有验证码的就简单点，现在登录需要验证码。。。网上说的要识别验证码比较麻烦，有没有自动读取已登录网站的代码呢，或者其它方法？非常感谢，你上面的回答，我已经弄懂了那个字符串处理的代码了。。