关注使用ie.navigate在excel vba中创build的辅助外部窗口，并将主体导出为ex​​cel

到目前为止，代码打开我们的代码到一个专利网站，使用JavaScript，在search框中插入所需的logging，执行search，并在只有一个地址栏（不知道如何被称为）的新窗口中打开法律地位。

问题是，这个窗口是不活跃的，我们不能操纵这个窗口。 我们的目标是获取popup窗口中显示的信息并将其导出到我们的Excel表单中。

所以问题是：我们如何专注于这个新的窗口，最好的做法是将这些全部导出为ex​​cel？ 提前致谢。

Sub internetform() Dim IE As Object Dim hWND As Long Dim IEpopup As Object 'Dim doc As HTMLDocument Dim pubno As String Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.pss-system.gov.cn/sipopublicsearch/inportal/i18nAC.do?request_locale=en_US" IE.Visible = True While IE.Busy DoEvents Wend pubno = ThisWorkbook.Sheets("Sheet1").Range("A1") Application.Wait (Now() + TimeValue("00:00:02")) IE.Document.All("searchInfo0").Value = pubno While IE.Busy DoEvents Wend IE.Document.All("executeSearch0").Click Application.Wait (Now() + TimeValue("00:00:14")) IE.Navigate "javascript:showAssisantTools_insearch('" & pubno & "','" & pubno & "',2)" 'FindWindow(vbNullString, pubno) Application.Wait (Now() + TimeValue("00:00:02")) 'exporting div in body to excel IE.Navigate "www.google.nl" IE.Document.All("q").Value = pubno Debug.Print IE.Document.All("bodyMid rop") End Sub