excel - 使用 IEX API 获取实时股票信息(雅虎财经替代品)？

Question

正如标题所说，既然雅虎已经禁用了许多人一直在使用的 API，我正在寻找股票信息的替代源。我一直在寻找的新来源可以在这里找到:https://iextrading.com/developer/

我的问题是如何实际将数据输入 Excel...我正在考虑通过 VBA，因为这是我用来从 Yahoo 获取数据的方法。但是，我认为我想做的远远超出了我目前的能力...我还尝试使用 Excel 的 WEBSERVICE() 函数和以下 URL 来简单地查看价格:https://api.iextrading.com/1.0/stock/aapl/price但这没有用。据我了解，IEX免费向我们提供了大量数据，我只是不知道如何访问它们。我使用 VBA 的理由是，我能够使用工作簿中的输入列表作为股票行情，并且能够将此数据访问放入许多工作簿中。任何帮助深表感谢。此外，任何关于我可以从哪里开始自学的方向也同样受到欢迎。谢谢。

更新:我的评论中提到的代码

Function StockPrice(ticker As String, item As String) As Double

Dim strURL As String, strCSV As Double, itemFound As Integer, tag As String

itemFound = 0
If item = "lastprice" Then
    tag = "price"
    itemFound = 1
ElseIf item = "pe" Then
    tag = "peRatio"
    itemFound = 1

End If

If itemFound = 1 Then

    strURL = "https://api.iextrading.com/1.0/stock/" & ticker & "/" & tag
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", strURL, False
    XMLHTTP.send
    StockPrice = XMLHTTP.responseText
    Set XMLHTTP = Nothing

Else

    StockPrice = "Item Not Found"

End If

End Function

Answer 1

这可能有点简单，但这是一个开始:

Sub IEX()
Dim Price As Single

    Price = Application.WebService("https://api.iextrading.com/1.0/stock/aapl/price")

End Sub