본문 바로가기
주식/분석프로그램

초간단 해외종목 주가 산출 엑셀 프로그램 (요청자료)

by §@★§◇□&@☆ 2022. 4. 30.
반응형

요청하신 분이 있어 올려드립니다. 버튼 하나만 누르면 해외주식의 주가를 마음대로 구할 수 있는 엑셀 프로그램입니다. 하나의 종목은 물론 원하는 종목들을 한꺼번에 구할 수 있습니다. 주식분석에 유용하게 쓰일 수 있습니다. 오늘도 물론 무료로 공유해드립니다.

 

준비물

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

사용방법

1. 종목과 종목이름을 적습니다. (특히 종목 이름은 대소문자까지 정확히 적어야 합니다.)

2. "주가" 버튼을 누릅니다.

주의사항

지난 글들과 마찬가지로 엑셀을 조금 세팅해주어야 이 프로그램이 작동됩니다. (세팅방법은 아래 링크 올려드리니 방법대로 하시면 간단합니다.)

엑셀 세팅 방법

 

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

주식을 하려면 분석이 필수입니다. 좋은 분석 전략은 유튜브만 봐도 엄청나게 많고 자료는 널렸습니다. 하지만 그것을 종목에 적용해보려면 대략 2000개가 되는 종목을 하나하나 따져봐야 할 텐

ezdaily.tistory.com

파일 다운로드

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

해외주가.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 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

 

이 밖에도 제 글 분석프로그램 카테고리에 다양한 주식 관련 엑셀 프로그램들이 있으니 주식분석 및 엑셀 공부하실 분들은 참고로 보시면 좋을 듯합니다. 감사합니다. 이 글이 유용했다면 공감버튼은 필수♡

반응형

댓글