Excel 2013에서 주가를 어떻게 다운로드합니까? Google 문서의 GoogleFinance 스프레드 시트 기능과 동등한 기능이 있습니까?


8

Google 문서 스프레드 시트에서이 셀 수식을 사용할 수 있습니다.

=GoogleFinance("GOOG", "price")

주식의 최신 가격을 다운로드합니다. Excel 2013에 동등한 기능이 있습니까?

이전 버전의 Excel에는 각 시세 표시기 (실제로 가격이 필요한 경우 너무 많은 데이터)에 대해 많은 양의 데이터를 다운로드 하는 스마트 태그 기능 이 있었으며 Excel 2013 용 Bing Finance 앱 을 제안하는 소스를 보았습니다 . 이것은 중단되었습니다.

이를 수행하는 간단한 방법이 있습니까? 문자 그대로 가장 최근의 가격이 필요하며 지연되거나 야후 파이낸스 등에서 오는 경우 상관 없습니다. 아마도 VBA 코드를 작성하여 YF에서 CSV 파일을 다운로드하고 구문 분석하는 등의 작업을 할 수 있습니다. 매크로 사용 통합 문서를 만들지 않기를 바라고 있습니다.


이것은 Excel에서 기본적으로 지원하는 기능이 아닙니다
Ramhound

1
Excel 2007/2010 data - existing connection - MSN MoneyCentral Investory Stock Quotes작품에서 2013 년에 제거 되었습니까? 편집 -예, 삭제 된 것으로 보이며 Bing Finance App은 "대체"입니다. data - from webmsn 돈에 대한 쿼리를 설정할 수 있지만 지루할 것입니다.
Raystafarian

@Raystafarian 새로운 데이터 쿼리를 어떻게 설정합니까?
Michael A

당신이 사용해야 할 것 같다 전력 쿼리를 2013 년 소스
Raystafarian

1
@harrymc 저는 OP가 아니지만 가장 귀중한 답변은 Excel 2013의 기존 기능을 사용하거나 무료 인 것입니다.
Excellll

답변:


5

다음과 같이 UDF를 사용할 수 있습니다.

Option Explicit

Public Function GetTickerPrice(ByVal ticker As String) As Double

    Dim IE As Object
    Dim pageData As Object

    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    URL = "http://www.msn.com/en-us/money/stockdetails/fi-126.1." & ticker & ".NAS?symbol=" & ticker & "=PRFIMQ"

    IE.Navigate URL

     Do Until IE.ReadyState >= 4
            DoEvents
     Loop

     Application.Wait Now + TimeSerial(0, 0, 5)

     Set pageData = IE.document

     GetTickerPrice = pageData.getElementsByClassName("precurrentvalue")(0).innertext

     Set IE = Nothing
     Set pageData = Nothing
End Function

이제 GetTickerPrice("GOOG")현재 가격을 사용 하고 얻을 수 있습니다 .


나는 이것을 약간의 입력 을 위해 Codereview.SE 로 가져 갔다 .


2
Long 대신 Double로 형식을 지정하는 것이 가장 좋지 않으므로 소수 정보를 잃지 않습니다. 그런 다음 최종 사용자는 반올림 여부를 결정할 수 있습니다.
Jonno

고마워,이 작동합니다! 하지만 그건 정말 느린 - 20초 한 주가를 얻을에 대해. IE를 열고 URL을로드한다고 가정하면 병목 현상이 발생합니다. 어쨌든이 문제를 해결할 수 있습니까?
Excellll

@Jonno 네, Excellll이 변화 한 것을 보았습니다
Raystafarian

@Excellll IE가 침묵하도록 강요 할 수있는 방법이 있는지 알아 보려고하지만 이전과 같은 데이터베이스를 찾을 수 없다면 (적어도 이전 버전의 Excel에서는) 멈출 수 있습니다.
Raystafarian

1
@Excellll CodeReview 에는 제 접근 방식에 대한 꽤 괜찮은 답변이 있습니다. 내 대답과 동일하게 간주되지 않을 정도로 다른 것처럼 보입니다.
Raystafarian


-1

이 작업을 수행하고 2013 년 버전의 Excel 2013 용 주식 시세 추가 기능 이라는 추가 기능 이 있습니다. 개인적으로 작동시킬 수는 없었지만 몇 년 동안 사용되어 왔기 때문에 아마도 나일 것입니다. .


2
슈퍼 유저에 오신 것을 환영합니다. 이것은 질문에 대답하는 데 도움이되지만이 플러그인을 사용하는 방법에 대한 정보를 추가 할 수 있습니까?
LJD200
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.