主页 > 无人人类 >评的随想记事 使用Excel VBA 取得台湾证券交易所个 >

评的随想记事 使用Excel VBA 取得台湾证券交易所个

2020-05-22 23:27

先前是透过Excel的从网站取得外部资料再搭配yahoo股市的投资组合设定来取得个股的当日收盘资讯,

但但是~~~几天前yahoo股市的投资组合改版了......

所以就取不到资料了~~~~

当然就透过google大神看看有没有其他的资讯取得方式

发现证交所有提供所谓的查询方式可取得

最简单的就是https://mis.twse.com.tw/stock/api/getStockInfo.jsp?ex_ch=tse_1101.tw

将网址贴上后就会呈见如下资讯

因为台湾有分上市或上柜,所以这边参数部分要注意的是tse表上市;otc表上柜

当然底线后面加的就是股票代号啰

回传的资料是採用JSON格式的

当然可以直接硬解,或是到 https://github.com/VBA-tools/VBA-JSON 下载 JSON conversion and parsing for VBA

汇入excele后,您就可以json的方式来取得您要的资料了

程式範例如下:

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
sUrl = "https://mis.twse.com.tw/stock/api/getStockInfo.jsp?ex_ch=tse_" + sCode + ".tw"
'Using .Open to send GET request
XMLHTTP.Open "GET", sUrl, False
XMLHTTP.send
Set JSON = ParseJson(XMLHTTP.responseText)
Sheet5.Cells(i, 3) = JSON.Item("msgArray")(1).Item("z")

这样就是取到此股的当日收盘价jsonxmlhttpvba资讯资料tseset

当前阅读:评的随想记事 使用Excel VBA 取得台湾证券交易所个

上一篇:

下一篇:

热点资讯

时尚图库

猜你喜欢

历史资讯: