请帮忙修改一下自动导入网页部分数据的代码（赠送财富值2000）

itxianfeng · 发表于 2009-6-13 17:19

谢谢版主，股票代码是否能显示出来，那个很重要，可以作为检索码
您编写的软件真是神速，很快就导出来了。
顺便告诉您，这个和讯网站的数据是实时变化的，还可以用鼠标点击标题来自动排序，功能很强大，是我寻找到的最好的网站了

[ 本帖最后由 itxianfeng 于 2009-6-13 17:26 编辑 ]

winland · 发表于 2009-6-13 17:25

原帖由 gqy7979948 于 2009-6-13 17:13 发表
太感谢了。这个非常好，速度快，股票全。
我对代码不懂，我想加上“股票代码”和“昨收”、“买价”、“卖价”等等，需要改动代码中的哪个部分呢？

股票代码和昨收可以加进去，但是“买价”和“卖价”这个表中没有，需要从另外的地方获取。
股票代码在arrT2(0)中，可以用下面两行代码获得。
strCode = Mid(arrT2(0), InStrRev(arrT2(0), "[") + 1)
strCode = Trim(Replace(strCode, "'", ""))
这样你就可以使用这句代码放到第1列。
Cells(i + 3, 1) = strCode
昨收是arrT2(4)，我在代码里已经注释了，同时还有成交量和成交额。用上面Cells(i+3,**)=arrT2(**)的方法就可以放到你指定的列里。

winland · 发表于 2009-6-13 17:29

原帖由 itxianfeng 于 2009-6-13 17:19 发表
谢谢版主，股票代码是否能显示出来
顺便告诉您，这个和讯网站的数据是实时变化的，还可以用鼠标点击标题来自动排序，功能很强大，是我寻找到的最好的网站了

股票代码的问题同上。
这个网站的数据还是挺方便的。之前不知道这个地方，所以用的搜狐的数据，一个一个下载下来，速度比不上这个，不过一天一次，也就没什么了。不过搜狐的数据没有量比，再改改看。
顺便问一下，有没有什么地方下载KDJ数据的？多谢多谢。

itxianfeng · 发表于 2009-6-13 17:37

安信公司的软件里面公式选股可以设置KDJ选股不知道对版主有用吗

gqy7979948 · 发表于 2009-6-13 17:45

非常感谢。现在问题基本上解决了。下一步我准备尝试用这个网页行情导出取代我原来从行情软件中手工导出。如果能成功，将大大地提高效率。
我的水平实在太差了，不手把手地教，我就看不明白。不好意思。

winland · 发表于 2009-6-13 17:46

原帖由 itxianfeng 于 2009-6-13 17:37 发表
安信公司的软件里面公式选股可以设置KDJ选股不知道对版主有用吗

不怎么会用这些公式。今天手动导出KDJ数据（累一个字），以后就直接计算出来，这样可以放到Excel里。

itxianfeng · 发表于 2009-6-13 17:54

原帖由 winland 于 2009-6-13 17:25 发表

股票代码和昨收可以加进去，但是“买价”和“卖价”这个表中没有，需要从另外的地方获取。
股票代码在arrT2(0)中，可以用下面两行代码获得。
strCode = Mid(arrT2(0), InStrRev(arrT2(0), "[") + 1)
strCode = ...

版主代码还是麻烦您帮忙改完吧，我没有看懂代码，再就是您导入的是上海和深圳A股的全部数据吧，
此问题已经圆满解决，我是否有权将自己的财富转到您的帐户中，毕竟您付出了一下午的时间来编写代码，让我感激不尽。

itxianfeng · 发表于 2009-6-13 17:58

原帖由 winland 于 2009-6-13 17:46 发表

不怎么会用这些公式。今天手动导出KDJ数据（累一个字），以后就直接计算出来，这样可以放到Excel里。

那个是安信公司自己设置的公式，是利用KDJ底部公式才预测反转的股票，不需要你来设置公式

winland · 发表于 2009-6-13 18:19

做了一个比较完整的版本。这个导出的数据是沪深A股的全部数据。
财富就不需要了，一句话，助人为快乐之本。刚好自己对这个也有兴趣。

股票数据分析.rar (93.72 KB, 下载次数: 2231)

ldy · 发表于 2009-6-13 18:40

原帖由 winland 于 2009-6-13 16:59 发表
现在越来越多的网站在用Ajax了，不好的地方是不能使用Web查询，好的地方是只下载脚本数据可以很大的提高速度。
和讯的数据可以通过下面的网址来获得所有股票的数据（不知道是不是实时的）。sorttype=3改成sorttype= ...

h t t p://quote.tool.hexun.com/hqzx/quote.aspx?type=2&market=0&sorttype=3&updown=up&page=1&count=2000

这个网址太好了，但这个网址是如何取得的？请教一下有什么诀窍？

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

[求助] 请帮忙修改一下自动导入网页部分数据的代码（赠送财富值2000）

回复 22楼 winland 的帖子