Question

EXCEL如何用VBA自动获取每个股票近几天的涨幅

黄色区域是每个股票每几天的涨幅，怎么获取
我指是的VBA代码，网上有个“获取某股票所有历史数据”的代码，我改了一下，执行起来很慢,执行一次两秒还可以接受，如果执行多次就差不多要死机了，如何是好？

Answer 1

　　一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
　　涨幅就是指目前这只股票的上涨幅度。
　　涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
　　例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
　　比如:一支股票的涨幅是：10%、-5%等 。

Answer 2

执行得慢那可能是因为你用webbrowser这样的控件去加载页面来运行，如果自己机器配置好网速快那是没有问题的。
如果机器一般性就用xmlhttp组件来做，因为不用加载页面，但是很难捉数据

追问

xmlhttp和XMLDOM差不多吧，我专门在家里和网吧测试了，速度没区别，获取2500个股票都是5分钟多点，这里网上的大概的一段代码：

Answer 3

excel大量获取数据是比较慢的 你这种得用vb写dll多线程刷新数据才行 私聊

Answer 4

这个跟你安装的是哪一个股票软件有关，还与安装位置有关。

Answer 5

这个要用宏了。。。

追问

代码呢？

追答

用xmlhttp组件做啊。。。