[Excel VBA] Naver 주식 Api를 이용하여 주식의 한 항목 값만 가져오는 사용자 정의 함수

#엑셀_주식 #주식_특정_항목_가져오기 #주식_사용자_정의_함수 -------------------------------------------------------------------------------- 좋아요/구독 눌러주세요. 큰 힘이 됩니다. -------------------------------------------------------------------------------- 질문 사항이 있으시면 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

Category