无法读取新页面HTML Excel VBA

在前一页inputsearchvariables之后，我试图从结果页面获取刮取的数据。 我不能得到.doc HTML来反映新的页面的HTML，（不一致，5-10％的情况下正确读取）。 我已经看了这个问题的其他解决scheme，大多数归结为不等待新的页面html出现，但我已经把5,10甚至二十秒等待，但似乎并没有把戏。 任何build议/指针将受到欢迎

<code>Sub ParseInternet() Dim post_code As String Dim house_num As String post_code = CStr(Sheet1.Cells(9, 2).Value) 'get search data from worksheet house_num = CStr(Sheet1.Cells(9, 1).Value) If post_code = "" Then MsgBox ("House Name /Number and postcode MUST be entered") Exit Sub End If Set site = CreateObject("InternetExplorer.application") Dim url As String url = "http://landregistry.data.gov.uk/app/ppd" site.Navigate url While site.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend site.Visible = True site.Document.getElementById("paon").Value = house_num site.Document.getElementById("postcode").Value = post_code Set my_classes = site.Document.getElementsByClassName("btn btn-primary") For Each my_class In my_classes my_class.Click Next my_class While site.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend Application.Wait (Now + TimeValue("0:00:10")) Dim a As String Dim b As String b = "property by searching for" '''STILL PREVIOUS PAGE HTML IN .DOC Set HTMLLI = site.Document.getElementsByTagName("div") For xli = 0 To HTMLLI.Length - 1 a = site.Document.getElementsByTagName("div")(xli).innerText If InStr(site.Document.getElementsByTagName("div")(xli).innerText, b) Then Sheet1.Cells(9, 4).Value = site.Document.getElementsByTagName("div")(xli).innerText Exit For End If Next xli site.Quit Set site = Nothing End Sub </code>