刮擦TSP网站时，我可以使用Excel VBA HTML刮擦访问股票价格表中的数据

Question

我正在抓取网站“ https://www.tsp.gov/fund-performance/share-price-history/”，如果我使用getElementById（“ dynamic-share-share-div”），我可以debug.print nistarhtml但是，如果我使用靠近我想要的桌子的getElementById（“ Dynamic-Share-Price-table”）。当它们都具有唯一的DIV ID时，为什么我可以将InnerHTML打印为一个而不是另一个。我只是不知道如何到达Div中的唯一表格。我尝试在返回的每个div对象上使用getElementsbytagname（“ table”）（0）（0），但我一无所获。当我在DIV ID上使用getElementById直接转到表（上面的第二个唯一Div ID）时，我什至无法调试。这是我的代码。

sub tspxmlget（）

Dim req As New MSXML2.XMLHTTP60
Dim reqURL As String
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim HTMLDiv As MSHTML.IHTMLElement
Dim HTMLTable As MSHTML.IHTMLElement

reqURL = "https://www.tsp.gov/fund-performance/share-price-history/"

req.Open "GET", reqURL, False

req.send

If req.Status <> 200 Then
    MsgBox req.Status & " - " & req.StatusText
    Exit Sub
End If

HTMLDoc.body.innerHTML = req.responseText

Set HTMLDiv = HTMLDoc.getElementById("dynamic-share-price-div")

'Set HTMLDiv = HTMLDoc.getElementById("dynamic-share-price-table") 'This one shows that Div element has been populated

Debug.Print HTMLDiv.innerHTML 'Will get print in immediate window only for first choice (-div but not -table)

'Set HTMLDiv = HTMLDoc.getElementsByTagName("table")(0)

Set HTMLTable = HTMLDiv.getElementsByTagName("table")(0)  ' Says object required

Debug.Print HTMLTable.innerHTML  ' get nothing in immediate window since no object

结束

表主体的xpath是：“/html/body/main/main/div/div [2]/div/div/div/div/div/div/div/div [2]/table/tbody”知道如何编码XPath