VBA HTML Зачистка - «.innertext» из сложной таблицы

Question

Все,

Я создал следующий модуль, чтобы очистить одно значение (изменение ого% лондонские цены на жилье) по указанному ниже адресу:

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 

Answer 3

Попробуйте это также. Он также даст вам именно то, что вам нужно.

Sub HousePriceData() 
    Const URL = "https://www.hometrack.com/uk/insight/uk-cities-house-price-index/" 
    Dim http As New XMLHTTP60, html As New HTMLDocument 
    Dim htmla As Object, tRow As Object, tCel As Object 

    With http 
     .Open "GET", URL, False 
     .send 
     html.body.innerHTML = .responseText 
    End With 

    Set htmla = html.getElementsByTagName("table")(0) 

    For Each tRow In htmla.Rows 
     For Each tCel In tRow.Cells 
      c = c + 1: Cells(x + 1, c) = tCel.innerText 
     Next tCel 
     c = 0 
     x = x + 1 
    Next tRow 
End Sub