如何快速取得股票交易历史数据（zt）
一些网友收集的excel vba ，特别是如果抓取网页股票数据的文章。
目前市场上有很多股票行情交易软件,各种软件提供了丰富的分析和展示功能，而且基本上是免费的。
但有时我们还是想取得股票历史数据自己用Excel等工具进行查看或分析。如何获得股票历史数据呢？
最复杂也是最灵活的方法是编程实现，就是用程序到新浪搜狐的财经频道或其他财经类网站抓取并分析网页，这种方法对于大部分来说可操作性不强。
最直观的方法是直接到网站查看股票历史数据然后复制下来，比如到谷歌财经）输入相应股票代码，点击“历史价格”，就可以看到该股票历史数据。
接下来可以直接复制数据了。缺点是每页最多显示200行数据，需要手工翻页。
最方便快捷省时省力的方法就是雅虎财经网站，它提供的接口可以直接把股票历史数据导成Excel,真实太方便了！
直接在浏览器地址中数据网址即可
上证股票是股票代码后面加上.ss，深证股票是股票代码后面加上.sz
深市数据链接：
上市数据链接：
另外，上证综指代码：000001.ss，深证成指代码：399001.SZ，沪深300代码：000300.ss
例如查询中国石油的历史数据，直接在浏览器中输入：
网站自动返回一个csv格式的文件，保存到本地即可。可以直接用Excel打开分析，也可以导入SAS、SPSS等软件进行分析。
得到的文件包括如下几个字段：
Date&Open&High&Low&Close&Volume&Adj
分别是：日期、开盘价、最高价、最低价、收盘价、收盘价、成交量、复权收盘价&
好了，有时间我将在以后的文章介绍如何进行股票价格的回归分析。
【例子】 取 日 至 日的数据
http://table./table.csv?a=0&b=1&c=2012&d=3&e=19&f=2012&s=600000.ss
private string CreatUrl(string _Symbol)
DateTime dt = DateTime.Today.AddYears(-1);
dt.AddDays(-10);
int a = dt.Month -1 ;
int b = dt.D
int c = dt.Y
int d = DateTime.Today.Month -1 ;
int e = DateTime.Today.D
int f = DateTime.Today.Y
return @"http://table./table.csv?a="
+ a + @"&b=" + b + @"&c=" + c + @"&d=" + d + @"&e="
+ e + @"&f=" + f + @"&s=" + _Symbol +
@"&y=0&g=d&ignore=.csv";
通过Yahoo Finance API获取股票数据
最近要做的一个网站需要在首页显示世界各大股票交易场所的综合指数，于是搜集了点这方面的资料，今天把研究的结果放出来。
提供财经方面讯息，做的比较好的应该是Google财经和Yahoo财经了，综合考虑还是Yahoo的接口比较好用
API使用方法比较简单，举个例子：
/d/quotes.csv?s=^XAU&f=snd1l1c6
返回数据：
”^XAU”,”PHLX Gold/Silver “,”11/24/2010&P,213.51,”+1.01&P
很典型的CSV数据，比较好处理。“s”指的是股票的代码（Symbol），“f”是要获取的数据选项，上面例子返回的数据分别是“代码”，“股票
名称”，“最后更新时间”，“指数”，“变动”。完整的参数列表参见下面表格（对财经方面知道不多，所以不翻译了，以免误导别人）：
Average Daily Volume
Ask (Real-time)
Bid (Real-time)
Book Value
Change & Percent Change
Commission
Change (Real-time)
After Hours Change (Real-time)
Dividend/Share
Last Trade Date
Trade Date
Earnings/Share
Error Indication (returned for symbol changed / invalid)
EPS Estimate Current Year
EPS Estimate Next Year
EPS Estimate Next Quarter
Float Shares
Day’s Low
Day’s High
52-week Low
52-week High
Holdings Gain Percent
Annualized Gain
Holdings Gain
Holdings Gain Percent (Real-time)
Holdings Gain (Real-time)
Order Book (Real-time)
Market Capitalization
Market Cap (Real-time)
Change From 52-week Low
Percent Change From 52-week Low
Last Trade (Real-time) With Time
Change Percent (Real-time)
Last Trade Size
Change From 52-week High
Percebt Change From 52-week High
Last Trade (With Time)
Last Trade (Price Only)
High Limit
Day’s Range
Day’s Range (Real-time)
50-day Moving Average
200-day Moving Average
Change From 200-day Moving Average
Percent Change From 200-day Moving Average
Change From 50-day Moving Average
Percent Change From 50-day Moving Average
Name 股票名称
Previous Close
Price Paid
Change in Percent
Price/Sales
Price/Book
Ex-Dividend Date
Dividend Pay Date
P/E Ratio (Real-time)
Price/EPS Estimate Current Year
Price/EPS Estimate Next Year
Symbol 股票代码
Shares Owned
Short Ratio
Last Trade Time
Trade Links
Ticker Trend
1 yr Target Price
Holdings Value
Holdings Value (Real-time)
52-week Range
Day’s Value Change
Day’s Value Change (Real-time)
Stock Exchange
Dividend Yield
上面接口虽然好用，不过根据项目需求，在进行了进一步封装，自己写了个Widget类，方便在模板里调用
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
class&FinanceWidget&{&public&$stocks&=&();&public&$htmlOptions&=&();&public$data&=&();&&&&&public&function&__construct($data&=&(),$htmlOptions&=&()){$this-&stocks&=&$data;&$this-&htmlOptions&=&$htmlOptions;&}&&&private&function_renderHead($htmlOptions){&$options&=&'';&foreach($htmlOptions&as&$option&=&&$value){$options&.=&"$option=\"$value\"&";&}&echo&"
$options&\n";&}&&&private&function_renderBody($data){&foreach($data&as&$row){&echo&'
'.$row[3].''.$row[1].''.$row[2].'
'."\n";&}&}&&&private&function_renderFoot(){&echo&"
\n";&}&&&private&function&getAPI(){&$IDs&=&(',',$this-&stocks);&return&"/d/quotes.csv?s=$IDs&f=nl1p2";&}&&&publicfunction&run(){&$this-&getStocks();&$this-&_renderHead($this-&htmlOptions);&$this-&_renderBody($this-&data);&$this-&_renderFoot();&}&&&public&function&getStocks(){&$row&=0;&$stocks_name&=&($this-&stocks);&if&(($handle&=&($this-&getAPI(),&'r'))!==&FALSE)&{&while&(($data&=&($handle,&1000,&","))&!==&FALSE)&{($data,$stocks_name[$row]);&($this-&data,$data);&$row++;&}($handle);&}&}&}
调用的时候只需要定义你需要展示的股票，传给FinanceWidget类：
1 2 3 4 5 6 7 8 9 10 11 12 13
$stock&=&(&'上证指数'=&'000001.ss',&'深圳成指'=&'399001.sz',&'香港恒生'=&'0011.hk',&'日经指数'=&'^N225',&'英国FTSE'=&'^FTSE',&'法国CAC'=&'^FCHI',&'德国DAX'=&'^GDAXI',&'纳斯达克'=&'^IXIC','道琼指数'=&'INDU',&);&$widget&=&new&FinanceWidget($metals);&$widget-&run();
输出结果如下：
XAU指数213.51+0.48%
HUI指数548.979+0.01%
JSE黄金2701.89+0.11%
GOX指数246.62+0.31%
TSX指数411.840.00%
当然这个类支持指定ul的html选项，作为第二个参数传递给Widget类即可，这里不多介绍，大家根据自己需要扩展即可
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。访问本页面，您的浏览器需要支持JavaScript请教各位大侠大智慧的f10中“最新资料数据”的财务数据如何导出到excel？
理想小六级同学
还需要 556 积分才能升级
请教各位大侠大智慧的f10中“最新资料数据”的财务数据如何导出到excel？
浏览：13249
欢迎光临理想论坛，由于您没有登录，所以无法查看到论坛的附件及隐藏分区，也无法与其他会员交流。
还没有理想论坛的帐号？
请教各位大侠大智慧的f10中“最新资料数据”的财务数据如何导出到excel？谢！股票论坛
积分1444&理想币93 个&彩币0 个&共享币197 个&注册时间&
理想论坛荣誉班长(菠菜一段)
看看附件中的这些适合不适合你用。可以的话回个帖子，让更多的同学也用用
07:54, 下载次数: 247
积分81398&理想币73588 个&彩币700 个&共享币111 个&注册时间&
理想小六级同学
还需要 556 积分才能升级
感谢班长土豆豆2008，正是我想要的，你是怎么搞到的？能否告诉方法！谢！
积分1444&理想币93 个&彩币0 个&共享币197 个&注册时间&
理想高二级同学(菠菜一段)
还需要 4610 积分才能升级
可以的、而且还能按季、按年的各期数据导出
积分15390&理想币185 个&彩币400 个&共享币202 个&注册时间&
理想小四级同学
还需要 152 积分才能升级
理想小六级同学
积分548&理想币10 个&彩币0 个&共享币100 个&注册时间&
理想小三级同学
还需要 60 积分才能升级
谢谢,下载看看.....
积分340&理想币2 个&彩币1 个&共享币100 个&注册时间&
理想高二级同学
还需要 7272 积分才能升级
引用:原帖由 肖恩 于
22:30 发表
请教各位大侠大智慧的f10中“最新资料数据”的财务数据如何导出到excel？谢！ &&&&土豆老大的东西可以！但怎么导出的呢？
[ 本帖最后由 魔山论股 于
17:18 编辑 ]
积分12728&理想币6854 个&彩币0 个&共享币100 个&注册时间&
理想初一级同学
还需要 1426 积分才能升级
感谢楼主的分享！　　原
积分2574&理想币1 个&彩币0 个&共享币100 个&注册时间&
理想初一级同学
还需要 1426 积分才能升级
感谢楼主的分享！!!!!!!!!!!!!!
积分2574&理想币1 个&彩币0 个&共享币100 个&注册时间&
理想小三级同学
还需要 108 积分才能升级
很不错,正需要 谢谢楼主
积分292&理想币75 个&彩币0 个&共享币102 个&注册时间&
理想初二级同学(菠菜二段)
还需要 540 积分才能升级
谢谢楼主分享~~~~~~~~~~
积分5460&理想币31 个&彩币2100 个&共享币161 个&注册时间&
理想小六级同学
还需要 104 积分才能升级
这个要顶.....
积分1896&理想币18 个&彩币0 个&共享币102 个&注册时间&
理想初三级同学
还需要 1442 积分才能升级
这个要顶.....
积分6558&理想币4 个&彩币0 个&共享币104 个&注册时间&
理想高二级同学(菠菜一段)
还需要 1242 积分才能升级
谢谢老师的新作 ！！！！！！！！！！！！！！！
积分18758&理想币1900 个&彩币10 个&共享币93 个&注册时间&
理想小三级同学
还需要 1 积分才能升级
学习一下了。非常感谢哦
积分399&理想币22 个&彩币0 个&共享币102 个&注册时间&
理想小一级同学
还需要 61 积分才能升级
如何获得理想币，学习相关知识
积分39&理想币2 个&彩币0 个&共享币100 个&注册时间&
理想小二级同学
还需要 53 积分才能升级
回复 2楼 @土豆豆2008
积分147&理想币36 个&彩币0 个&共享币100 个&注册时间&
理想高二级同学
还需要 7519 积分才能升级
如何导出财务数据呢？
我在学习自己用数据库，把历史日线数据、历史的财务数据（季报、年报、业绩预告）放到数据库里，再研究方法来选股，用数据库做测试，看最终收益率。
现在日线数据，通过通达信已经下载到所有股票的日线excel了。
但是没找到所有股票的历史财务数据，股票软件里似乎都没有导出功能。
请问你，该如何做呢？
我的qq是 ，希望加了好友，一起讨论和研究，谢谢。
积分12481&理想币6659 个&彩币0 个&共享币102 个&注册时间&
理想高三级同学
还需要 2733 积分才能升级
谢谢楼主分享~~~~~~~~~~
积分27267&理想币12304 个&彩币0 个&共享币3320 个&注册时间&
理想初一级同学
还需要 1579 积分才能升级
谢谢楼主分享~~~~~~~~~~
积分2421&理想币1276 个&彩币0 个&共享币568 个&注册时间&
快速回复主题
禁用 URL 识别
使用个人签名
接收新回复邮件通知
发帖请务遵守本站的相关规则，所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局，追究责任，特此申明！
具体规则请参见《》
您需要登录后才可以发帖
发表帖子[完成后可按 Ctrl+Enter 发布]
理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！
工业和信息化部信息备案：
公安局网警备案：
理想论坛值班电话[9:30～18:30]： &#6 5518-1　　&#6 5518-2(广告)
无安全提问
母亲的名字
爷爷的名字
父亲出生的城市
您其中一位老师的名字
您个人计算机的型号
您最喜欢的餐馆名称
驾驶执照的最后四位数字
手机版本，改版说明待解决问题
咨询者：yangdahao&&
城市：开封&&
咨询时间： 16:27&&
能不能把EXCEL中的股票代码导入到大智慧自选股中去，谢谢
城市：南京&&
积分：1684&&
您好，EXCEL中的股票代码导入到大智慧自选股中去暂时没有这个直接的功能支持，您可以一只股票一只股票的输入加入即可。
回答时间： 08:21
<b class="vote-num" id="vote_num_
【华泰证券】全国股票网上开户7*24小时客服热线：025--
在线咨询QQ：
城市：深圳&&
积分：4616&&
你好,没有这个功能，需要你自己添加，欢迎咨询。
回答时间： 22:37
<b class="vote-num" id="vote_num_
全国股票开户低至万2.-万3，股指期货万0.28，商品交易所加0.1。可手机网络远程便捷开户，坚持以最优惠的价格为您提供最优质的服务！_________________________________
还有疑问？继续提问 -理财顾问5分钟回复
还可以输入140个字
尚未登录，可以匿名提问。也可按此或
一个电话，一个垂询，一份财富
想理财？从咨询开始！
5分钟快速响应，100%回复率
推荐理财顾问HOT 月积分
积分：3740
理财顾问排行TOP
积分：3740
最新理财文章
最新理财产品
全国找理财顾问
预约客户经理，预约后客户经理会在5分钟分与您联系！
QQ/Email：[转载]转:EXCEL获取股票历史行情数据
EXCEL获取股票历史行情数据
定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。
怎么办呢？
其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
我用EXCEL里的VBA编写了一段代码，读取通达信股票行情软件的日线文件。已经测试通过。
代码如下。与爱好定量分析的朋友分享。
Type MyType
&&& a1 As Long
&&& a2 As Long
&&& a3 As Single
&&& a4 As Single
&&& a5 As Single
&&& a6 As Single
&&& a7 As Single
Sub 按钮1_Click()
As Integer
Dim b As MyType
File1 = FreeFile
Open "sh600000.day" For
Binary Access Read As #File1
Do While Not EOF(File1)
Get #File1, , b
Cells(i, 1) = b.a1
Cells(i, 2) = b.a2
Cells(i, 3) = b.a3
Cells(i, 4) = b.a4
Cells(i, 5) = b.a5
Cells(i, 6) = b.a6
Cells(i, 7) = b.a7
Cells(i, 8) = b.a8
Close #File1
别忘了把其中红字标示的文件名换成你想要读取的数据文件名。
另外,这段代码生成的行情数据可能会多一行0。懒得调试了
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。