如何在Excel 2013中下载股票价格？是否有与Google Doc的GoogleFinance电子表格功能等效的功能？

在Google文档电子表格中，我可以使用以下单元格公式：

=GoogleFinance("GOOG", "price")

下载股票的最新价格。Excel 2013中是否有等效功能？

Excel的早期版本具有智能标记功能，可以为每个股票下载大量数据（实际上，如果您只需要价格，则太多了），而且我见过一些资料表明建议使用Bing Finance应用程序来支持Excel2013。不幸的是，这已经停产了。

有没有简单的方法可以做到这一点？我实际上只是需要最新的价格，并且我不关心它是否延迟，例如Yahoo 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进行了一些输入。

目前，Office商店中有四个Stock应用程序。其中两个是免费的：

库存接头

库存瓷砖

有一个名为Stock Quote Add-In For Excel 2013的加载项，它可以执行此操作，并且有一个2013版。我个人无法使其正常工作，但是已经存在了几年，所以可能只是我一个人。