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

Question

到目前为止，代码打开我们的代码进入一个使用javascript的专利网站，在搜索框中插入所需的记录，执行搜索并在一个只有一个地址栏的新窗口中打开合法状态（不确定它是如何＆ ＃39; s叫）。

问题是，此窗口未激活，我们无法操作此窗口。我们的目标是获取弹出窗口中显示的信息并将其导出到我们的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