엑셀을 이용한 실시간 주식 데이터 가져오기 프로그램을 소개합니다. 이 주식 프로그램은 네이버 주식 데이터를 가져오기 하여 한 종목뿐 아니라 여러 종목을 동시에 엑셀 화면에서 출력하는 것이 가능하기 때문에 편리합니다.
주가 가동 출력 프로그램의 장점
1. 빠른 종목분석
보통의 트레이더 및 투자자에게는 '이 가격 이하로 빠지면 들어가야지' , '이 가격부터 관심 있게 봐야지' 하는 상징적인 가격대가 있습니다. 수많은 종목을 검색하다 보면 가끔씩은 내가 무슨 종목을 봤었는지 잊어버리는 경우가 많습니다. 뒤늦게 생각나서 그 종목을 봤을 때 이미 가격이 원하는 가격대까지 내려왔다가 다시 올라가서 매수 타이밍을 놓치는 경우가 많죠. 이 주식 엑셀 파일은 VBA를 기반으로 하여 종목의 개수에 상관없이 주가를 조회하는 것이 가능하기 때문에 종목을 놓치는 경우가 드물게 됩니다.
2. 편리함
많은 관심종목들을 일일이 사이트에 조회해서 주가를 조회하는 불편함을 덜어줄 수도 있고, HTS나 MTS처럼 페이지당 관심종목을 100개로 한정해서 봐야 하는 불편함도 없습니다. 원하는 종목을 한꺼번에 쭉 적어놓고 한 번의 클릭으로 조회할 수 있기 때문입니다.
사용 방법
사용방법은 매우 간단합니다. 영상에서 보시듯, 왼쪽 상단의 버튼 한 번만 클릭하면 됩니다. 물론, 종목명과 종목코드를 노란 셀에 입력하셔야겠죠. 다만, 사용하시기 전에 엑셀을 세팅하는 작업은 필요합니다.
1. 엑셀 상단 작업 탭(파일, 홈, 삽입 등 나와있는 탭)에 '개발 도구'를 추가하셔야 합니다. 방법은 상단 작업 탭에 마우스를 우클릭하셔서 리본 메뉴 사용자 지정을 하신 후 개발 도구를 추가하시면 됩니다.
2. 개발 도구를 추가하셨다면 눌러서 왼쪽에 visual basic을 클릭한 후 도구 - 참조를 실행, 아래 그림과 같이 목록을 체크해 주어 주가 자동프로그램 엑셀을 세팅 완료합니다.
주가 자동프로그램 엑셀을 세팅을 간단하게 끝마치고 버튼을 눌러 실행시키면 영상과 같이 자동 분석이 됩니다.
- 세부 코드 내용
프로그램은 엑셀 크롤링을 기반하여 만들어졌습니다. 세부 코드는 아래와 같습니다.
|
Sub GetNaverFinance()
Dim ie As InternetExplorer Dim strURL As String Dim i, j As Integer Dim ele As IHTMLElement Dim iframeDoc As IHTMLDocument
For i = 2 To Range("C3000"). End(xlUp). Row
Set ie = CreateObject("InternetExplorer.application") strURL = "https://finance.naver.com/item/coinfo.nhn?code=" & Range("C" & i) ie.Navigate strURL ie.Visible = False
Do While (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True) DoEvents Loop
'2초 추가 대기 Application.Wait (Now + TimeValue("00:00:02"))
'현재 주가########### Range("D" & i) = ie.document.getElementById("nowVal_td_0"). innerText
ie.Quit Set ie = Nothing
Next i |
- 파일 다운로드
참고하실 점은 엑셀 주가 연동 프로그램을 이용할 때 엑셀은 최신 버전일수록 좋으며, 한꺼번에 너무 많은 종목을 검색한다면 사이트 보안상 좋지 않다고 하니 100개 이하로 하는 것을 추천드립니다.
이용해보시고 유용하다고 생각되면 공감 한번 부탁드릴게요~ 감사합니다.
댓글