excel vba表单提交并parsing结果中的数据

这里是我的代码，不幸的是公司的问题，我不能发布真正的url，它的作品，但不是我想要的方式，检查我的问题如下：

Dim doc As HTMLDocument Dim IE As InternetExplorer Dim TDelements As IHTMLElementCollection Dim TDelement As HTMLTableCell Dim r As Long Sub ficfinder() Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate URL:="...INPUT"<---this is my search form, but i have to redact due to co policy Do 'Until .readyState = 4 DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE 'pick field to fill out Set mytextfield1 = .document.all.Item("WESTAC") 'set value to put in mytextfield1.Value = "5416869160" 'click the submit button IE.document.all.Item("Submit").Click Do 'Until .readyState = 4 DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE End With 'I think i'm missing something here Set doc = IE.document Dim sdd As String Set TDelements = doc.getElementsByTagName("td") r = 0 For Each TDelement In TDelements If TDelement.Align = "right" Then Sheet2.Range("A1").Offset(r, 0).Value = TDelement.innerText r = r + 1 End If Next End Sub 

所以这个工作，并把数据放到我的电子表格，但它所拉的数据是从search表单，而不是你提交后出现的页面。 我如何让IE.document出现的新页面？

任何帮助表示感谢，谢谢！

Answer 1

我补充说

 Do While IE.Busy: DoEvents: Loop 

提交后，它完美的作品。 感谢Tim Williams的帮助！