Ajax 抓取实时谷歌财务价格

我想创建一个类似于彭博社launchpad的小excel表格，用于监控实时股票市场价格。到目前为止，在所有可用的免费数据源中，我只发现谷歌金融为我需要的交易所列表提供实时价格。谷歌金融的问题是他们已经关闭了他们的金融API。我正在寻找一种方法来帮助我以编程方式检索我在下图中圈出的真实价格，以便在我的excel中实时更新

我一直在四处寻找，到目前为止没有任何结果。我在这里读了一些帖子：

---

但答案中建议的方法是检索图表中的时间序列数据，而不是我需要的实时更新价格部分。在chrome的检查中，我一直在检查网页的网络通信，没有发现任何返回我需要的实时价格部分的请求。非常感谢您的帮助。一些示例代码（可以是VBA以外的其他语言）将非常有用。谢谢大家

有很多方法可以做到这一点：VBA、VB、C#R、Python等等。下面是一种从Yahoo finance下载统计数据的方法

Sub DownloadData()

Set ie = CreateObject("InternetExplorer.application")

With ie
    .Visible = True
    .navigate "https://finance.yahoo.com/quote/AAPL/key-statistics?p=AAPL"

    ' Wait for the page to fully load; you can't do anything if the page is not fully loaded
    Do While .Busy Or _
        .readyState <> 4
        DoEvents
    Loop

    ' Set a reference to the data elements that will be downloaded. We can download either 'td' data elements or 'tr' data elements.  This site happens to use 'tr' data elements.
    Set Links = ie.document.getElementsByTagName("tr")
    RowCount = 1

    ' Scrape out the innertext of each 'tr' element.
    With Sheets("DataSheet")
        For Each lnk In Links
            .Range("A" & RowCount) = lnk.innerText
            RowCount = RowCount + 1
        Next
    End With
End With
MsgBox ("Done!!")

End Sub

子下载数据（）
设置ie=CreateObject（“InternetExplorer.application”）
与ie
.Visible=True
.导航“https://finance.yahoo.com/quote/AAPL/key-statistics?p=AAPL"
'等待页面完全加载；如果页面未完全加载，则无法执行任何操作
忙的时候做，忙的时候做_
.readyState 4
多芬特
环
'设置对将下载的数据元素的引用。我们可以下载“td”数据元素或“tr”数据元素。该站点碰巧使用了“tr”数据元素。
Set Links=ie.document.getElementsByTagName（“tr”）
行数=1
'清除每个'tr'元素的内部文本。
带图纸（“数据表”）
对于链接中的每个lnk
.Range（“A”&RowCount）=lnk.innerText
RowCount=RowCount+1
下一个
以
以
MsgBox（“完成！！”）
端接头

我将让你们自己去寻找其他同样的技术。例如，R和Prthon可以做完全相同的事情，不过，这些脚本与执行这类工作的VBA脚本有些不同