Google 문서 스프레드 시트에서이 셀 수식을 사용할 수 있습니다.
=GoogleFinance("GOOG", "price")
주식의 최신 가격을 다운로드합니다. Excel 2013에 동등한 기능이 있습니까?
이전 버전의 Excel에는 각 시세 표시기 (실제로 가격이 필요한 경우 너무 많은 데이터)에 대해 많은 양의 데이터를 다운로드 하는 스마트 태그 기능 이 있었으며 Excel 2013 용 Bing Finance 앱 을 제안하는 소스를 보았습니다 . 이것은 중단되었습니다.
이를 수행하는 간단한 방법이 있습니까? 문자 그대로 가장 최근의 가격이 필요하며 지연되거나 야후 파이낸스 등에서 오는 경우 상관 없습니다. 아마도 VBA 코드를 작성하여 YF에서 CSV 파일을 다운로드하고 구문 분석하는 등의 작업을 할 수 있습니다. 매크로 사용 통합 문서를 만들지 않기를 바라고 있습니다.
답변
다음과 같이 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 로 가져 갔다 .
답변
답변
이 작업을 수행하고 2013 년 버전의 Excel 2013 용 주식 시세 추가 기능 이라는 추가 기능 이 있습니다. 개인적으로 작동시킬 수는 없었지만 몇 년 동안 사용되어 왔기 때문에 아마도 나일 것입니다. .