VBA HTML 从复合体中抓取“.innertext” table

Question

全部，

我创建了以下模块以从以下地址抓取单个值（伦敦房价变化 100 万％）：

https://www.hometrack.com/uk/insight/uk-cities-house-price-index/

具体值嵌套在以下代码中：

下面的 VBA 代码是我尝试抓取的。我，也许是错误的，认为我非常接近捕获价值——但代码将无法工作。

有谁知道我哪里出错了？它不显示错误消息，也不输出任何值。

 Sub HousePriceData()
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim TxtRng As Range
        Dim ie As Object
        Dim V As Variant
        Dim myValue As Variant

        Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
        ie.NAVIGATE "https://www.hometrack.com/uk/insight/uk-cities-house-price-index/"
        ie.Visible = False

        While ie.ReadyState <> 4
            DoEvents
        Wend

        Set wb = ActiveWorkbook 
        Set ws = wb.Sheets("Input") 
        Set TxtRng = ws.Range("C15") 

        Set myValue = ie.document.getElementById("cities-index-table").getElementsByTagName("tr")(7).g‌etElementsByTagName("td")(5) 

        TxtRng = myValue.innerText 
        End Sub

Answer 1

尝试使用XHR和原始解析而不是笨拙的IE:

Sub Test()

    Dim strUrl As String
    Dim strTmp As String
    Dim arrTmp As Variant

    strUrl = "https://www.hometrack.com/uk/insight/uk-cities-house-price-index/"
    With CreateObject("MSXML2.XMLHttp")
        .Open "GET", strUrl, False
        .Send ""
        strTmp = .ResponseText
    End With
    arrTmp = Split(strTmp, ">London</a></td>", 2)
    strTmp = arrTmp(1)
    arrTmp = Split(strTmp, "<td>", 7)
    strTmp = arrTmp(6)
    arrTmp = Split(strTmp, "</td>", 2)
    strTmp = arrTmp(0)

    ThisWorkbook.Sheets("Input").Range("C15").Value = strTmp

End Sub

Answer 2

试试这个

Dim Engmt As String

Engmt = "ERRORHERE"
On Error Resume Next
Engmt = Trim(ie.document.getElementById("cities-index-   table").getElementsByTagName("tr")(12).g‌etElementsByTagName("td")(4).innerText)
On Error GoTo 0
If Engmt = "ERRORHERE" Then
TxtRng.Value = "ERROR"
Else
TxtRng.Value = Engmt
End If

VBA HTML 从复合体中抓取“.innertext” table

VBA HTML Scraping - '.innertext' from complex table

excel

parsing

vba

xmlhttprequest

web-scraping