#엑셀_주식 #주식_특정_항목_가져오기 #주식_사용자_정의_함수
--------------------------------------------------------------------------------
좋아요/구독 눌러주세요. 큰 힘이 됩니다.
--------------------------------------------------------------------------------
질문 사항이 있으시면 kim5953@gmail.com으로 해 주세요.
[주식 Api]
https://api.finance.naver.com/service/itemSummary.nhn?itemcode=주식코드
[File Link]
https://drive.google.com/file/d/16sWcMbr7E3zM6FhVQ-7qjbWi5aukAbDe/view?usp=sharing
[Code]
'{"marketSum":489522169,"per":21.35,"eps":3841.0,"pbr":2.08,"now":82000,"diff":-100,"rate":-0.12,"quant":16742280,"amount":1374571,"high":83000,"low":81600,"risefall":5}'
Function stock(code, key)
Dim http As New MSXML2.ServerXMLHTTP60
Dim res As Variant
Dim url As String: url = "https://api.finance.naver.com/service/itemSummary.nhn?itemcode=" & code
http.Open "Get", url
http.send
http.waitForResponse
res = http.responseText
Set http = Nothing
Dim js As New ScriptControl
js.Language = "Jscript"
Dim obj As Object
Set obj = js.Eval("(" & res & ")")
stock = CallByName(obj, key, VbGet)
Set js = Nothing
End Function