8

В электронной таблице Документов Google я могу использовать эту формулу ячейки:

=GoogleFinance("GOOG", "price")

скачать последнюю цену акции. Есть ли эквивалентная функция в Excel 2013?

В более ранних версиях Excel была функция смарт-тегов, которая загружала тонну данных для каждого тикера (на самом деле, слишком много, если вам просто нужна цена), и я видел источники, которые предлагают приложение Bing Finance для Excel 2013. К сожалению, это было прекращено.

Есть ли простой способ сделать это? Мне буквально просто нужна самая последняя цена, и мне все равно, задержится ли она, поступит из Yahoo Finance и т.д. Предположительно, я мог бы написать код VBA, чтобы загрузить файл CSV из YF, разобрать его и так далее, но я в надежде избежать создания книги с поддержкой макросов.

3 ответа3

4

Вы можете использовать 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 для некоторого вклада.

3

На данный момент в магазине Office есть четыре приложения Stock. Два из них бесплатны:

Коннектор

Коннектор

Стоковая плитка

-1

Существует надстройка под названием Stock Quote Add-In для Excel 2013, которая делает это и имеет версию для 2013 года. Лично я не мог заставить это работать, но это было вокруг в течение нескольких лет, таким образом, это был, вероятно, только я.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .