腾迅股票数据接口

Sub 腾迅股票数据接口()
    a = "市场,名称,代码,现价,昨收,今开,成交量,外盘,内盘,买一,买一量,买二,买二量,买三,买三量,买四,买四量,买五,买五量,卖一,卖一量,卖二,卖二量,卖三,卖三量,卖四,卖四量,卖五,卖五量,最近逐笔成交,时间,涨跌,涨跌%,最高,最低,价格/成交量/成交额,成交量,成交额,换手率,市盈率,,最高,最低,振幅,流通市值,总市值,市净率,涨停价,跌停价"
    [a1:aw1] = Split(a, ",")
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://qt.gtimg.cn/q=sh600123", False
        .send
        [a2:aw2] = Split(Replace(.responsetext, "~", ","), ",")
    End With
End Sub