[分享]股票行情自动更新

ianon · 发表于 2007-8-23 07:02

看了yier_fang的帖子，深受启发，写了个小程序，可以在excel中看行情了，再不怕被人发现。

用的是新浪的数据，也支持港股哦。上海代码前面加sh，深圳sz，港股hk

点击右上角按钮后，每隔5秒刷新一次数据。

增加了涨幅榜功能，附件重新上传

[此贴子已经被作者于2007-8-24 13:35:31编辑过]

lovesf · 发表于 2007-8-23 08:22

密码可以说一下吗

不然没法看问题在哪呀

ianon · 发表于 2007-8-23 08:35

有密码吗？没有

lovesf · 发表于 2007-8-23 09:07

想看源代码，但atpvbaen.xls和funcres都有密码。在宏里看的

ynlhj · 发表于 2007-8-23 09:11

我想看看!

weide_yang · 发表于 2007-8-23 09:14

ianon老师，您的办法不错！！！

我想把以下网页中涨幅榜行情数据取到工作表中，但又不会改写您提供的代码，能帮帮忙么？谢谢！！！

yier_fang · 发表于 2007-8-23 09:16

QUOTE:

以下是引用ianon在2007-8-23 7:02:16的发言：

看了yier_fang的帖子，深受启发，写了个小程序，可以在excel中看行情了，再不怕被人发现。

用的是新浪的数据，也支持港股哦。上海代码前面加sh，深圳sz，港股hk

点击右上角按钮后，每隔3秒刷新一次数据。

退出的时候要直接关闭excel，如果只是关闭工作簿，3秒后还会自动打开，没想好怎么解决，请高手继续完善。

相当不错了。有点股票软件的意思了。

weide_yang · 发表于 2007-8-23 10:32

关于：3秒后还会自动打开的问题

想到一个最笨的办法，假如用一个单元格的值来控制是否执行那个刷新的程序....

例如：

if [t2]="8"then

....

end if

楼主可否关注一下6楼的求助？...谢谢！！！

romli · 发表于 2007-8-23 11:04

为什么下不了?

ianon · 发表于 2007-8-23 22:31

不好意思，代码都在模块1中，至于FCExcel不是我的，和这个程序没有关系。

涨幅榜不知道能不能实现，有空再看看了，这两天公司网络不是很稳定，没法上网。

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