实现获取股票价格的Excel函数使用教程
香港这边没有WIND，部门的彭博也不在我的机器上，为了取个股票价格数据都得跑来跑去。一怒之下，我写了一个的函数，用来获取行情数据。
get price from yahoo.xls79.0 KiB
从Yahoo上获取价格序列的Excel函数。无需作任何配置，代码Copy到你的Excel文件就能用。函数为 GetPriceFromYahoo(&000300.SS&, &&)。Last update：
使用方法为： =GetPriceFromYahoo(&000300.SS&, &&)。其中第一个参数为股票或者指数的ticker，第二个参数为日期。函数还支持第三个参数，以获取开盘价、最高价/最低价、交易量等数据。函数内置了缓存，速度非常快。
对于股票而言，价格信息还需要考虑一个重要的因素，即除权的处理。使用GetPriceFromYahoo(ticker, date, &adj&)可得到当天除权调整的收盘价。可惜这个调整收盘价不适用于中国地区的股票。
该函数支持Yahoo Finance支持的股票和指数，不仅限于国内的股票。中国上海交易所的股票ticker为代码加「.SS& ，深圳交易所的股票ticker为代码加&.SZ&。其它国家的股票和指数的ticker可先查询/。
这个函数的最大好处是不需要做任何配置，只需要把代码复制到你的Excel文件里即可。代码短小精悍，只有70行，在任何一台能上网的机器上都能用。smf_addin是另一个开源的Excel插件，功能比上面的函数要强大得多，不过配置上要稍微复杂一些，并且使用起来也不是很直观。
change logs:
: released
: 增加注释，修复一个小bug
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------查看: 981|回复: 1
[已解决]如何用函数根据股票代码判断是沪市或深市并输出？谢谢橘子红。
本帖最后由 flash100fen 于
15:13 编辑
A股中沪市股票代码是6开头，深市代码是0或3即非6开头，如何用函数根据股票代码判断是沪市或深市并输出？如图：如果是6开头的代码，就在后一个单元格中显示“沪”字，如果是非6开头就在后一个单元格显示“深”字。
(19.61 KB, 下载次数: 1)
14:28 上传
橘子红发布于
=if(left(a1)=&6&,&沪&,&深&)
&&&本楼为最佳***&&&
=if(left(a1)=&6&,&沪&,&深&)
|||Excel精英培训
Powered by查看: 18092|回复: 54
如何从网上获取某支股票最新价格？？？
阅读权限20
在线时间 小时
本帖最后由 jubaopen18 于
18:15 编辑
我在excel 2007里做个表格，单元格的值是某支股票的最新价格（第一列是股票代码，后一列是最新价格），这个值如何根据前一列的代码从财经类网站上获取并自动更新（打电excel文件时，只要联网就能更新就行了），请问大神如何才能达到此效果，用哪个函数能实现或其它方法？求高手指点。财经网站可参考
QQ图片03.jpg (20.95 KB, 下载次数: 79)
18:14 上传
(6.52 KB, 下载次数: 640)
18:14 上传
点击文件名下载附件
阅读权限20
在线时间 小时
截图看是要哪一个区域的内容
阅读权限20
在线时间 小时
234.gif (56.28 KB, 下载次数: 120)
15:41 上传
阅读权限20
在线时间 小时
定时.gif (22.03 KB, 下载次数: 113)
15:53 上传
定时5秒更新
阅读权限50
在线时间 小时
& &用xmlhttp 直接抓吧
结果如下，标红标粗的就是你要的：
v_hk0~天合化工 ~01619~1.42~1.40~1.49~~0~0~1.42~0~0~0~0~0~0~0~0~0~1.42~0~0~0~0~0~0~0~0~0~~ 15:48:00~0.02~1.43~1.50~1.40~1.42~~~0~9.90~~0~0~7.14~362.57~362.57~TIANHE CHEM~0.00~2.54~1.22~0~&;
阅读权限100
在线时间 小时
腾讯股票查询是有接口的，很简单的代码Sub test()
& & For r = 3 To Range(&A1&).CurrentRegion.Rows.Count
& && &&&URL = &/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), & 00:00:00&)
& && && && &Else
& && && && && & Cells(r, 3).Value = &代码错啦！&
& && && && &End If
& && &&&End With
& & Next
End Sub复制代码
阅读权限20
在线时间 小时
本帖最后由 jubaopen18 于
10:57 编辑
各位前辈，我是小菜，真是不好意思。还是没弄明白，能否再讲直白一点。或者一步步教我一下。我要灵活运用一下，我实际的表格不是附件那种，只是举个例子的。谢谢，谢谢！
阅读权限100
在线时间 小时
jubaopen18 发表于
各位前辈，我是小菜，真是不好意思。还是没弄明白，能否再讲直白一点。或者帮我做到附件里。我下载了研究一 ...
(10.42 KB, 下载次数: 1418)
10:11 上传
点击文件名下载附件
阅读权限100
在线时间 小时
哦 还要区分深圳上海的股票代码，换下面这样
10:40 上传
点击文件名下载附件
10.87 KB, 下载次数: 2396
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 jubaopen18 于
12:23 编辑
HHAAMM 发表于
哦 还要区分深圳上海的股票代码，换下面这样
版主大神，确实好用。非常感谢。你这个也是利用宏的吧？能否再讲直白一点。或者一步步教我一下。我要灵活运用一下，我实际的表格不是附件那种，只是举个例子的。或者帮我翻译一下各行代码的意思也行的。我再慢慢研究。谢谢
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师