반응형
요청하신 분이 있어 올려드립니다. 버튼 하나만 누르면 해외주식의 주가를 마음대로 구할 수 있는 엑셀 프로그램입니다. 하나의 종목은 물론 원하는 종목들을 한꺼번에 구할 수 있습니다. 주식분석에 유용하게 쓰일 수 있습니다. 오늘도 물론 무료로 공유해드립니다.
준비물
1. 최근 버젼의 엑셀만 있으면 됩니다.
사용방법
1. 종목과 종목이름을 적습니다. (특히 종목 이름은 대소문자까지 정확히 적어야 합니다.)
2. "주가" 버튼을 누릅니다.
주의사항
지난 글들과 마찬가지로 엑셀을 조금 세팅해주어야 이 프로그램이 작동됩니다. (세팅방법은 아래 링크 올려드리니 방법대로 하시면 간단합니다.)
파일 다운로드
유용하게 사용하시기 바랍니다.
참고로 링크도 올려드리니 관심있으신분들은 같이 공부해봅시다.
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 driver = New WebDriver driver.AddArgument "headless" driver.Start "chrome" driver.Get "https://m.stock.naver.com/worldstock/stock/" & Range("C" & i) & ".O/total" '주가########### nCnt = Range("C60000").End(xlUp).Row For Each elem In driver.FindElementsByClass("GraphMain_price__u2XyL") Range("D" & nCnt).Value = elem.Text Next elem driver.Quit Set driver = Nothing Next i End Sub |
이 밖에도 제 글 분석프로그램 카테고리에 다양한 주식 관련 엑셀 프로그램들이 있으니 주식분석 및 엑셀 공부하실 분들은 참고로 보시면 좋을 듯합니다. 감사합니다. 이 글이 유용했다면 공감버튼은 필수♡
반응형
댓글