VBA，Yahoo Finance-从数据反应堆获取数据

问题描述

我正在寻找一个代码来从VBA中的“ https://finance.yahoo.com/quote/AAPL/key-statistics?p=AAPL”中获取一些数据。 我需要当前“企业价值/收入”和“企业价值/ EBITDA”。 在IE中查看时，“ data-reactid = 180”似乎是“企业价值/收入”的ID，问题是我不知道如何/如何编写代码来获取所需的数据。

我尝试了以下操作，但没有成功：）

Sub YFinance2()
Dim XMLReq As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim I As Integer
Dim strUrl As String
Dim td As Object,tds As Object


XMLReq.Open "GET","https://finance.yahoo.com/quote/AAPL/key-statistics?p=AAPL",False
XMLReq.send

Set tds = HTMLDoc.getElementsByTagName("table")(2).getElementsByTagName("tr")(9).getElementsByTagName("td")
For Each td In tds
    Debug.Print td.innerText
Next

If XMLReq.Status <> 200 Then
        MsgBox "Error!"
        Exit Sub
End If

HTMLDoc.body.innerHTML = XMLReq.responseText

Set XMLReq = nothing

MsgBox HTMLDoc.querySelector("tr[data-reactid='133']").innerText
End Sub

有什么主意吗？

非常感谢！ 杰里米

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）