ExcelVBA写了一个获取新浪股票接口数据的函数

Sina股票数据接口

以大秦铁路（股票代码：601006）为例，如果要获取它的最新行情，只需访问新浪的股票数据接口：
http://hq.sinajs.cn/list=sh601006
这个url会返回一串文本，例如：
var hq_str_sh601006="大秦铁路, 27.55, 27.25, 26.91, 27.55, 26.20,26.91, 26.92,
22114263, 589824680, 4695, 26.91, 57590, 26.90, 14700, 26.89,14300,
26.88, 15100, 26.87, 3100, 26.92, 8900, 26.93, 14230, 26.94, 25150,26.95, 15220, 26.96, 2008-01-11, 15:05:32";
这个字符串由许多数据拼接在一起，不同含义的数据用逗号隔开了，按照程序员的思路，顺序号从0开始。
0：”大秦铁路”，股票名字；
1：”27.55″，今日开盘价；
2：”27.25″，昨日收盘价；
3：”26.91″，当前价格；
4：”27.55″，今日最高价；
5：”26.20″，今日最低价；
6：”26.91″，竞买价，即“买一”报价；
7：”26.92″，竞卖价，即“卖一”报价；
8：”22114263″，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；
9：”589824680″，成交金额，单位为“元”，为了一目了然，通常以“万元”为成交金额的单位，所以通常把该值除以一万；
10：”4695″，“买一”申请4695股，即47手；
11：”26.91″，“买一”报价；
12：”57590″，“买二”
13：”26.90″，“买二”
14：”14700″，“买三”
15：”26.89″，“买三”
16：”14300″，“买四”
17：”26.88″，“买四”
18：”15100″，“买五”
19：”26.87″，“买五”
20：”3100″，“卖一”申报3100股，即31手；
21：”26.92″，“卖一”报价
(22, 23), (24, 25), (26,27), (28, 29)分别为“卖二”至“卖四的情况”
30：”2008-01-11″，日期；
31：”15:05:32″，时间；

VBA代码

ALT+F11调出VBA编程，然后添加一个模块，将代码复制即可调用，记得启用宏，不然没结果。

Function StockInfo(code As String)
    StockInfo = 1
    Dim url As String, preCode As String
    preCode = Left(code, 1)
    If preCode = "0" Or preCode = "3" Then
    'sz 深圳A股
        url = "http://hq.sinajs.cn/list=sz" + code
    Else
    'sh 上海A股
    url = "http://hq.sinajs.cn/list=sh" + code
    End If
    Dim ret As String
    ret = "11"
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .send
        ret = .responseText
    End With
    'StockInfo = ret
    arr0 = Split(ret, "=")
    arr1 = Split(arr0(1), ",")
    StockInfo = arr1(3)
End Function

注：arr中存放了股票的基本数据，具体要获取哪个价格自行更改，当前代码获取的是股票最新价。调用方式=StockInfo("000001")