如何从网上获取某支股票最新价格？？？

jubaopen18 · 发表于 2014-10-14 16:11

本帖最后由 jubaopen18 于 2014-10-15 18:15 编辑

我在excel 2007里做个表格，单元格的值是某支股票的最新价格（第一列是股票代码，后一列是最新价格），这个值如何根据前一列的代码从财经类网站上获取并自动更新（打电excel文件时，只要联网就能更新就行了），请问大神如何才能达到此效果，用哪个函数能实现或其它方法？求高手指点。财经网站可参考http://stockhtm.finance.qq.com/h ... f=fi_quote_navi_bar QQ图片20141015180503.jpg

如何自动获取股票最新价格.rar (6.52 KB, 下载次数: 1157)

liangdonghao222 · 发表于 2014-10-16 15:10

截图看是要哪一个区域的内容

liangdonghao222 · 发表于 2014-10-16 15:41

liangdonghao222 · 发表于 2014-10-16 15:53

定时5秒更新

lsdongjh · 发表于 2014-10-16 16:04

http://qt.gtimg.cn/q=hk01619 用xmlhttp 直接抓吧
结果如下，标红标粗的就是你要的：
v_hk01619="100~天合化工 ~01619~1.42~1.40~1.49~111335237.0~0~0~1.42~0~0~0~0~0~0~0~0~0~1.42~0~0~0~0~0~0~0~0~0~111335237.0~2014/10/16 15:48:00~0.02~1.43~1.50~1.40~1.42~111335237.0~160339418.68~0~9.90~~0~0~7.14~362.57~362.57~TIANHE CHEM~0.00~2.54~1.22~0~";

HHAAMM · 发表于 2014-10-16 17:40

腾讯股票查询是有接口的，很简单的http://qt.gtimg.cn/q=sz代码

Sub test()
For r = 3 To Range("A1").CurrentRegion.Rows.Count
URL = "http://qt.gtimg.cn/q=sz" & Cells(r, 1).Value
With CreateObject("msxml2.xmlhttp")
.Open "GET", URL, False
.send
sp = Split(.responsetext, "~")
If UBound(sp) > 3 Then
Cells(r, 3).Value = sp(3)
Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
Else
Cells(r, 3).Value = "代码错啦！"
End If
End With
Next
End Sub

复制代码

jubaopen18 · 发表于 2014-10-17 09:56

本帖最后由 jubaopen18 于 2014-10-17 10:57 编辑

各位前辈，我是小菜，真是不好意思。还是没弄明白，能否再讲直白一点。或者一步步教我一下。我要灵活运用一下，我实际的表格不是附件那种，只是举个例子的。谢谢，谢谢！

HHAAMM · 发表于 2014-10-17 10:11

jubaopen18 发表于 2014-10-17 09:56
各位前辈，我是小菜，真是不好意思。还是没弄明白，能否再讲直白一点。或者帮我做到附件里。我下载了研究一 ...

如何自动获取股票最新价格.rar (10.42 KB, 下载次数: 2117)

HHAAMM · 发表于 2014-10-17 10:40

哦还要区分深圳上海的股票代码，换下面这样

jubaopen18 · 发表于 2014-10-17 11:00

本帖最后由 jubaopen18 于 2014-10-17 12:23 编辑

HHAAMM 发表于 2014-10-17 10:40
哦还要区分深圳上海的股票代码，换下面这样

版主大神，确实好用。非常感谢。你这个也是利用宏的吧？能否再讲直白一点。或者一步步教我一下。我要灵活运用一下，我实际的表格不是附件那种，只是举个例子的。或者帮我翻译一下各行代码的意思也行的。我再慢慢研究。谢谢

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

[求助] 如何从网上获取某支股票最新价格？？？

评分