使用VBA从网站中删除信息

Question

我正试图使用Excel中的VBA来获取有关美国30年期固定抵押贷款总利率的信息。以下是我到目前为止所做的，但我不知道我做错了什么：

Sub National_Average()
'
' National_Average Macro
' Record the national average mortgage rate from https://fred.stlouisfed.org/series/MORTGAGE30US
Dim ie As InternetExplorer
Dim htmlEle As IHTMLElement
Dim i As Integer
i = 1
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://fred.stlouisfed.org/series/MORTGAGE30US"
Application.Wait (Now + TimeValue("00:00:05"))
For Each htmlEle In ie.document.getElementsByClassName("series-meta-observation-value")
With Sheets("Demand")
.Range("F2").Value = htmlEle.getElementsByClassName("series-meta-observation-value").textContent
End With
Next
ie.Quit
End Sub

我知道这与我的For Each部分有关，特别是Range("F2").Value部分。我们将不胜感激！

Answer 1

您已经在类中找到的每个元素上循环了，为什么要在htmlEle上再次使用.getelementsyclass((来分配值。应该低于

For Each htmlEle In ie.document.getElementsByClassName("series-meta-observation-value")
With Sheets("Demand")
.Range("F2").Value = .Range("F2").Value & htmlEle.innertext 'accumulating all data on cell
End With
Next htmlEle