Як завантажити ціну акцій у Excel 2013? Чи існує еквівалент функції електронної таблиці GoogleFinance в Doc?

У таблиці Google Docs я можу використовувати формулу комірки:

=GoogleFinance("GOOG", "price")

завантажити останню ціну акції. Чи існує еквівалентна функція в Excel 2013?

Раніші версії Excel мали функцію розумного тегу, яка завантажувала тонну даних за кожний тикер (занадто багато, насправді, якщо вам просто потрібна ціна), і я бачив джерела, які пропонують додаток Bing Finance для Excel 2013. На жаль це було припинено.

Чи є простий спосіб це зробити? Мені буквально потрібна сама остання ціна, і мені байдуже, чи вона затримана, походить від Yahoo Finance тощо. Імовірно, я можу написати код VBA, щоб завантажити файл CSV з YF, проаналізувати його і так далі, але я сподіваючись уникнути створення робочої книги з підтримкою макросу.

Ви можете використовувати такий 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 для деякої інформації.

Наразі в офісі магазину є чотири програми для акцій . Два з них безкоштовні:

З'єднувач запасу

Запас плитки

Існує надбудова, що називається Stock Quote Add-In For Excel 2013, яка робить це, і має версію для 2013 року. Особисто я не міг змусити її працювати, але це вже кілька років, тому, ймовірно, це був я лише .