Javascript 关注使用ie创建的辅助外部窗口。在excel vba中导航并将正文导出到excel

到目前为止，代码打开我们的代码进入一个使用javascript的专利网站，在搜索框中插入所需的记录，执行搜索，并在一个新窗口中打开合法状态，该窗口仅包含一个地址栏（不确定如何调用）

问题是，此窗口未处于活动状态，我们无法操作此窗口。我们的目标是获取弹出窗口中显示的信息，并将其导出到excel工作表中

因此，问题是：我们如何关注这个新窗口，以及将这些导出到excel的最佳实践是什么？提前谢谢

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

---

API很可能会有所帮助。如果这个特定的问答不完全是你需要搜索更多的例子FindWindow。您可以传递窗口标题以查找窗口，然后可以循环查找窗口上的任何可单击控件。我们设法获得了一个“不可见窗口处理程序”（不确定这是否正确，因为窗口是可见的）。我们应该如何处理这个处理程序？这是一个类似的问题，您可以使用这个问题的答案：API很可能会有所帮助。如果这个特定的问答不完全是你需要搜索更多的例子FindWindow。您可以传递窗口标题以查找窗口，然后可以循环查找窗口上的任何可单击控件。我们设法获得了一个“不可见窗口处理程序”（不确定这是否正确，因为窗口是可见的）。我们应该如何处理该处理程序？这是一个类似的问题，您可以使用该问题的答案：