본문 바로가기

네이버증권2

[심화방] VBA_심화_100제 #3 [ 네이버 주식 종목토론방 ] 원래 계획은 시리즈로 1. 현재가 가져오기 2. 종목 토론방 가져오기 3. 코스피 코스닥 종목과 종목코드 가져오기 4. 종목에 따른 동적인 변화를 이벤트를 통해 크롤링 하는것을 계획했는데, 글이 한두개 밀려서 현재가에서 ~~ 이벤트로 퀀텀 점프를 해버렸다.. 연말이라서 정신이 없으니 이해 바란다. 그냥 몇일동안 해야할걸 한방에 보게 되었다 생각하시길... 주의 할 것은 평소에는 차트가 가려져 있고 [저가] 밑에 화살표 버튼을 눌러야 비로소 차트가 보이게 된다. 이 코드는 숨기기 버튼을 누르고 차트의 일봉 주봉 월봉 중 일봉 차트를 클릭하는 구문이다. Sel.FindElementByCss("#btn_close").Click Sel.FindElementByCss("#chart_area > div.chart .. 2022. 12. 30.
[VBA] 코스피 200 가져오기(네이버 증권, Callbyname) 코스피 200을 가져오는 코드를 Jsonconver 없이 만들어 보았다. 단점은 엑셀 64비트를 사용하시는 분들은 초기에 설치파일을 본인 컴에 설치하신 후 사용하셔야 한다. 설치는 압축을 풀고 EXE 파일을 눌러서 설치하면 된다. 더보기 Option Explicit Sub get_kospi200() Ref.xmlhtml '= xmlHttp 초기 바인딩 참조 'Stop Dim strUrl As String: strUrl = "https://m.stock.naver.com/api/json/sise/enrollItemListJson.nhn?pageSize=202" '= 네이버증권 코스피 200 Dim xmlhttp As New ServerXMLHTTP60 '= xmlHttp 초기 바인딩 Dim rngX As .. 2022. 6. 27.