股票数据分析表不能更新啦！帮忙看看！

shen7378 · 发表于 2011-5-8 14:25

等我完成了，我会上传。。。

siyiqing · 发表于 2011-5-8 14:30

修改了宏，可以更新了

lsftest · 发表于 2011-5-8 14:47

原帖由 shen7378 于 2011-5-8 13:18 发表
原作者不好求啊

嘿嘿...其他人不敢说,但这个作者估计是很好求的...
你发站内短信给他,他看见就行了....

shen7378 · 发表于 2011-5-8 15:14

太谢谢了！高手就是高手。。。

xmyjk · 发表于 2011-5-8 23:24

现在A股不止2000只股票了吧，网址改成http://quote.tool.hexun.com/hqzx/quote.aspx?type=2&market=0&sorttype=3&updown=up&page=1&count=3000吧

然后优化了下代码，可能这样快些吧。

Option Explicit
Sub test()
Dim tmp() As String, i As Integer, arr() As String, xmlhttp As Object
Sheets("快速行情").Select
Sheets("快速行情").UsedRange.Clear
Sheets("快速行情").Range("a1:M1") = Split("代码,名称,最新价,涨跌幅,昨收,今开,最高,最低,成交量,成交额,换手,振幅,量比", ",")
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
With xmlhttp
.Open "get", "http://quote.tool.hexun.com/hqzx/quote.aspx?type=2&market=0&sorttype=3&updown=up&page=1&count=3000", False
.send
tmp = Split(Split(Split(Replace(Replace(Replace(.responsetext, "'", ""), vbCrLf, ""), "],[", ","), "[[")(1), "]]")(0), ",")
End With
ReDim arr(UBound(tmp) \ 13, 12)
For i = 0 To UBound(tmp)
arr(i \ 13, i Mod 13) = tmp(i)
Next
Sheets("快速行情").Range("a2").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr
Sheets("快速行情").Columns("a:M").AutoFit
Erase tmp
Erase arr
Set xmlhttp = Nothing
MsgBox "Ok"
End Sub

复制代码

xmyjk · 发表于 2011-5-8 23:29

附件也改好了，如下。试看看。

cbtaja · 发表于 2011-5-9 08:32

做个记号，学习一下。

shen7378 · 发表于 2011-5-9 08:54

最后一只股票不能显示问题也解决了，开心啊!太棒了。。。谢谢！

岭南人家 · 发表于 2011-5-9 10:46

我认为去买股票还不如去买彩票！中国的股票监管缺失，暗箱操作、操纵太严重，我这几天连续不断地收到一些短信推荐说某某股票明天如何大涨、如何大跌，谁在操纵等等，公平性、公正性严重缺失！试想一下：这几年有几个个股是赚钱的？有几个个股是不亏的？去买彩票还真说不定那天“一战定天下”！

saler111 · 发表于 2011-5-9 18:33

原帖由 岭南人家 于 2011-5-9 10:46 发表
我认为去买股票还不如去买彩票！中国的股票监管缺失，暗箱操作、操纵太严重，我这几天连续不断地收到一些短信推荐说某某股票明天如何大涨、如何大跌，谁在操纵等等，公平性、公正性严重缺失！试想一下：这几年有几个 ...

道理是如此,但大多数人经不住诱惑,还是会买股票.
再说了,国家印钞太多,百姓又没有什么投资渠道,不买股留着也是贬值.

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

回复 10楼 saler111 的帖子