전일 종가 자동 산출 프로그램(엑셀 요청자료)

안녕하세요. 엑셀을 이용한 실시간 주식 데이터 가져오기 프로그램 시리즈입니다. 지난번 올려드렸던 실시간 주가 산출 프로그램에 이어 전일 종가를 산출하는 프로그램입니다.

 

준비물

1. 최근 버전의 엑셀만 있으면 됩니다.

 

 

사용방법

1. 종목과 종목코드를 적습니다. (종목코드는 앞에 ' 를 넣어서 적습니다 - ex '005930)

2. 전일종가 버튼을 누릅니다.

주의사항

 

이 프로그램이 작동되기 위해서는 엑셀을 조금 세팅해주어야 하는데, 아래 링크 방법대로 하시면 간단합니다.

엑셀 세팅 방법

주식 자동 분석을 위한 초간단 엑셀 세팅

파일 다운로드

유용하게 사용하시기 바랍니다.

전일종가.xlsm

0.02MB

Sub titi()          Dim ie As InternetExplorer     Dim strURL As String     Dim i, j, nCnt As Integer     Dim ele As IHTMLElement     Dim iframeDoc As IHTMLDocument     Dim driver As WebDriver     Dim elem As WebElement     Dim p As Object     For i = 2 To Range("C3000").End(xlUp).Row         Set ie = CreateObject("InternetExplorer.application")         strURL = "https://finance.naver.com/item/frgn.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"))          '일별시세###########         nCnt = Range("C60000").End(xlUp).Row         For Each ele In ie.document.getElementsByTagName("tbody")             If ele.parentElement.className = "type2" And ele.parentElement.parentElement.className = "section inner_sub" Then                 Range("D" & nCnt).Value = ele.getElementsByTagName("td")                For j = 0 To 1                 Range("D" & nCnt).Offset(0, j) = ele.parentElement.getElementsByTagName("td")(j + 1).innerText                Next j                nCnt = nCnt + 1             End If         Next ele              ie.Quit         Set ie = Nothing                   Next i      End Sub

 

유용한 정보라고 생각되시면 공감한번 부탁드려요.