엑셀 실시간 주식 데이터 가져오는 함수

엑셀에서 실시간 주식 데이터 가져오기

현대의 금융 시장에서는 실시간 데이터의 중요성이 날로 증가하고 있습니다. 투자자들은 주식 시장의 변화에 즉각적으로 대응할 수 있는 능력이 필요하며, 이를 위해 엑셀을 활용한 데이터 수집 방법이 주목받고 있습니다. 본 포스트에서는 엑셀을 통해 실시간 주식 데이터를 효율적으로 가져오는 방법에 대해 자세히 설명드리겠습니다.

1. 웹 크롤링의 기본 이해

주식 정보를 수집하기 위해 가장 먼저 이해해야 할 개념은 웹 크롤링입니다. 이는 특정 웹사이트에서 필요한 데이터를 자동으로 가져오는 과정을 의미합니다. 주식 정보는 여러 플랫폼에서 제공되지만, 그 중 네이버와 같은 대형 포털 사이트는 매우 유용한 소스로 활용됩니다.

크롤링을 시작하기 위해서는 웹사이트의 구조를 잘 이해해야 합니다. 각 웹 페이지는 HTML 코드로 구성되며, 우리가 원하는 데이터는 특정 태그 안에 위치하고 있습니다. 이런 정보를 찾아내기 위해 개발자 도구(F12)를 활용하여 사이트의 구조를 분석해야 합니다.

2. 데이터 요청과 비동기 처리

네이버 주식 사이트에서 정보를 가져오는 방식에는 비동기 통신이 적용되어 있습니다. 이 경우, 사용자가 추가적인 데이터를 요청할 때 페이지가 새로 고쳐지지 않고, 필요한 정보만 업데이트 됩니다. 이 과정에서 URL이 변화하지 않으므로, 크롤링을 위해 URL을 파악하는 것이 중요합니다.

예를 들어, 사용자가 ‘더보기’ 버튼을 클릭할 때 새로운 페이지가 로드되는데, 이때 개발자 도구의 ‘Network’ 탭을 통해 새로운 URL이 어떻게 생성되는지를 확인할 수 있습니다. 이렇게 확인한 URL을 통해 데이터를 요청할 수 있습니다.

3. 필요한 도구 및 환경 설정

주식 데이터를 크롤링하기 위해서는 몇 가지 준비물이 필요합니다. 가장 중요한 것은 JSON 데이터를 처리할 수 있는 모듈입니다. 일반적으로 ‘JsonConverter’라는 모듈을 사용하는데, 이를 통해 JSON 형식의 데이터를 쉽게 변환하고 다룰 수 있습니다.

이 외에도 Excel의 VBA 기능을 통해 웹 요청을 보내고 응답을 처리하는 코드를 작성할 수 있어야 합니다. 본 포스트에서는 VBA를 이용한 실시간 주식 데이터 크롤링의 기본 코드를 제공하겠습니다.

4. 엑셀 VBA를 이용한 주식 데이터 수집 코드

엑셀에서 실시간 주식 데이터를 불러오기 위한 기본적인 VBA 코드는 다음과 같습니다:

Sub 주식데이터수집()
  Dim winhttp As New WinHttpRequest
  Dim url As String
  url = "https://m.stock.naver.com/api/stocks/marketValue/KOSPI?page=1&pageSize=20"
  winhttp.Open "GET", url
  winhttp.Send
  Dim response As String
  response = winhttp.ResponseText
  Dim jsonData As Object
  Set jsonData = JsonConverter.ParseJson(response)
  ' 데이터 기록
  Cells(2, "A").Value = jsonData("stocks")(1)("itemCode") ' 종목 코드
  Cells(2, "B").Value = jsonData("stocks")(1)("stockName") ' 종목명
  Cells(2, "C").Value = jsonData("stocks")(1)("closePrice") ' 현재가
  Cells(2, "D").Value = jsonData("stocks")(1)("marketValue") ' 시가총액
  Cells(2, "E").Value = jsonData("stocks")(1)("accumulatedTradingVolume") ' 거래량
End Sub

위의 코드를 실행하면 첫 번째 주식 종목의 정보를 가져와 엑셀에 기록하게 됩니다. 이를 통해 우리는 주식 정보를 실시간으로 수집할 수 있는 기반을 마련할 수 있습니다.

5. 전체 주식 데이터 불러오기

주식 정보는 특정 페이지에서만 제공되는 것이 아니므로, 전체 데이터를 불러오기 위한 반복 실행 로직을 추가해야 합니다. 전체 주식 리스트의 수를 파악하고, 이 수를 기준으로 반복하여 데이터를 요청하도록 코드를 수정해야 합니다. 이를 통해 모든 종목의 데이터를 엑셀로 가져올 수 있습니다.

Sub 모든종목데이터수집()
  Dim winhttp As New WinHttpRequest
  Dim page As Integer
  Dim totalCount As Integer
  Dim r As Integer: r = 2 ' 행 설정
  page = 1
  Do
    Dim url As String
    url = "https://m.stock.naver.com/api/stocks/marketValue/KOSPI?page=" & page & "&pageSize=20"
    winhttp.Open "GET", url
    winhttp.Send
    Dim response As String
    response = winhttp.ResponseText
    Dim jsonData As Object
    Set jsonData = JsonConverter.ParseJson(response)
    For i = 1 To jsonData("stocks").Count
      Cells(r, "A").Value = jsonData("stocks")(i)("itemCode")
      Cells(r, "B").Value = jsonData("stocks")(i)("stockName")
      Cells(r, "C").Value = jsonData("stocks")(i)("closePrice")
      Cells(r, "D").Value = jsonData("stocks")(i)("marketValue")
      Cells(r, "E").Value = jsonData("stocks")(i)("accumulatedTradingVolume")
      r = r + 1
    Next i
    totalCount = jsonData("totalCount")
    page = page + 1
  Loop While page * 20 < totalCount
End Sub

위 코드는 모든 KOSPI 종목의 정보를 엑셀 시트에 기록하게 됩니다. 이 과정을 반복하여 전체 데이터를 수집할 수 있는 기초를 제공합니다.

결론

엑셀을 활용한 주식 데이터의 실시간 수집 방법을 알아보았습니다. 이러한 방법을 통해 투자자들은 시장의 변동에 대한 빠른 반응능력을 갖출 수 있게 됩니다. 또한, 수집된 데이터를 분석하여 투자 전략을 세우는 데 큰 도움이 되리라 확신합니다. 따라서 이러한 기법을 잘 익혀 활용하신다면, 데이터 기반의 정확한 투자 결정을 내릴 수 있을 것입니다.

자주 물으시는 질문