Excel 2013で株価をダウンロードするにはどうすればよいですか？Google DocのGoogleFinanceスプレッドシート関数に相当するものはありますか？

Googleドキュメントのスプレッドシートでは、次のセルの数式を使用できます。

=GoogleFinance("GOOG", "price")

株式の最新の価格をダウンロードします。Excel 2013に同等の機能はありますか？

以前のバージョンのExcelには、ティッカーごとに大量のデータをダウンロードするスマートタグ機能があり（実際には、価格が必要な場合は多すぎます）、Excel 2013のBing Financeアプリを示唆する情報源を見てきました。残念ながら、これは廃止されました。

これを行う簡単な方法はありますか？私は文字通り最新の価格が必要なだけであり、それが遅れているかどうか、Yahooファイナンスなどから来たかどうかは気にしません。おそらく、YFからCSVファイルをダウンロードして解析するなどのVBAコードを記述できますが、マクロが有効なワークブックの作成を回避したいと考えています。

このような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に引き継ぎました。

現在、Office Storeには4つのStockアプリがあります。2つは無料です。

ストックコネクター

ストックタイル

これを行うExcel 2013のStock Quote Add-Inと呼ばれるアドインがあり、2013用のバージョンがあります。個人的には動作させることができませんでしたが、数年前から存在していたため、おそらく私だけでした。