从 HTML 到 VBA 的元素值不能使用 IE

如何解决从 HTML 到 VBA 的元素值不能使用 IE

我在 VBA 中的自动化项目有问题，我想将一些数据从网站放到 excel 文件中。但对我来说不是使用 PowerQ 的选择。因为这个网站只能在 Opera、Mozilla、GC 中运行，不能在 IE 中运行。我是 VBA 脚本的新手，我尝试在网上找到一些信息，但没有任何我想要的东西。

无法向您发送该网站的 URL，因为仅在我的网站 Internet 上运行。但我给你一个 HTML 文件

VBA 脚本

我在网上找到了这个脚本，它有点像一个 excel vba 网页中的训练脚本，告诉我如何从网站获取数据到 excel 并且它的工作 100%，这是脚本的一部分 - 参考 price = html .getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)").Item(0).innerText 对于那个项目/值我想在我的精益求精。

Sub Get_Web_Data()


Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant

' Website to go to.
website = "https://finance.yahoo.com/quote/EURUSD=X?p=EURUSD=X"

' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET",website,False

' Get fresh data.
request.setRequestHeader "If-Modified-Since","Sat,1 Jan 2000 00:00:00 GMT"

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody,vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
price = html.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)").Item(0).innerText

' Output the price into a cell
Cells(1,1).Value = price



End Sub

这是网页 https://jsfiddle.net/matt9114/0781sapv/

的 HTML

我需要的部分从 462

开始

在“tbody”中，我有 TR-Class 和 TR-Role ，这就是我要找的。​​p>

我希望它使用 VBA 脚本将此表/tr_class,tr_role 和值复制到我的 excel 中。 问题是，可以将其输入到我的 VBA 脚本中，我如何在 VBA 脚本部分向您展示

price = html.getElementsByClassName("???").Item(0).innerText

非常感谢各位！祝你有美好的一天:-)