[分享]获取某股票所有历史日K线数据的程序

前几天，发了一个获取股票信息的程序(http://club.excelhome.net/viewthread.php?tid=261193)。那里面已经抛砖引玉地讲了如何获取网页信息，以及最底层网页代码的重要性。在这个程序里，我没有用文本形式，而是用了XML标记语言用来处理返回的信息。希望对大家掌握如何用VBA处理XML文档有一点帮助。

当然，本程序最大的作用，还是获取某一支股票的历史数据。

表1中，第一行分别为 "日期", "开盘价", "最高价", "成交价", "最低价", "成交量"

在股票代码中输入股票代码，注意，要6位呦，否则返不回数据。然后等待吧，不过片刻，从第二行开始，就会显示从股票上市交易至今的数据。

本程序只做个人研究使用，切勿做商业用途。切记切记。
根据lovesf朋友（这位朋友叫爱私服？）的要求，改了日期。重传如下。

SO7TsMt5.rar (15.26 KB, 下载次数: 5176)

2007-8-23 09:07 上传

点击文件名下载附件
[分享]获取某股票所有历史日K线数据的程序

谢谢！提一点个人意见

1。权证

Function GetStockAllData(ByRef StockCode As String)
     On Error Resume Next
     If Len(StockCode) <> 6 Then Exit Function
    '判断上证还是深证
    If Left(StockCode, 2) = 60 Or Left(StockCode, 2) = 58 Then

上证58开头是权证，加个判断，否则看不到，深证权证是03开头，基金我不看，所以不理   

2.结束日期是否改成系统日期？

StockCode = StockCode & Chr(38) & "end_date=20070822"

3.这个数据是盘中的还是盘后的？收盘后"成交价"就是收盘价了吧

    arrb = Array("日期", "开盘价", "最高价", "成交价", "最低价", "成交量")

是的，结束日期是应该改成系统日期的，有需要的，可以自己更改。我只是起抛砖引玉的作用。其他的，呵呵，就需要各位的智慧了。

我斗胆改成自由获取历史时段数据了，不知可否？

可以。日期那个位置是可以随便改的。

其实关键不是在这里，关键的，是要找到网上公开的数据源。这个最关键。

也请教yier_fang老师：

我想把以下网页中涨幅榜行情数据取到工作表中，但又不会改写您提供的代码，能帮帮忙做个示例么？谢谢！！！

http://biz.finance.sina.com.cn/hq/index.php?page=stock_ph.php%3Ftype%3Dstock_sh_up