美文网首页
ExcelVBA写了一个获取新浪股票接口数据的函数

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

作者: 我是Mr小赵先生 | 来源:发表于2019-10-22 16:34 被阅读0次

    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")

    相关文章

      网友评论

          本文标题:ExcelVBA写了一个获取新浪股票接口数据的函数

          本文链接:https://www.haomeiwen.com/subject/wloqvctx.html