如何导航到已打开的 Internet Explorer 窗口？ (VBA)

Question

所以我在网上搜索了很多关于如何执行此操作的信息，但似乎找不到任何具体信息。我看过很多关于如何打开新的 Internet Explorer 窗口并导航到特定网站的示例。但是，在我的特定情况下，我希望能够简单地导航到已经打开的 Internet Explorer 窗口（这将是 Internet Explorer 中唯一打开的窗口/选项卡）。这样做的原因是因为每次我打开网站时，我都需要先登录才能做任何事情。然后，理想情况下，我想将一些 ID 粘贴到搜索框中并按 Enter（我应该能够通过在线搜索了解如何执行此部分）。

这是我目前发现的，但我有点迷茫，不知道如何应用这段代码来按我的意愿工作。

Sub ExplorerTest()



Const myPageTitle As String = "Wikipedia"
Const myPageURL As String = "http://en.wikipedia.org/wiki/Main_Page"
Const mySearchForm As String = "searchform"
Const mySearchInput As String = "searchInput"
Const mySearchTerm As String = "Document Object Model"
Const myButton As String = "Go"
Dim myIE As SHDocVw.InternetExplorer


With myIE.Document.forms(mySearchForm)
    'enter search term in text field
    .elements(mySearchInput).Value = mySearchTerm
    'press button "Go"
    .elements(myButton).Click
  End With

End Sub

Answer 1

我尝试检查您的描述，发现您想要获取已打开的 IE 窗口的对象，而不是尝试自动化它。

您可以尝试参考下面的示例可能对您有所帮助。

在此示例中，您可以看到已打开的页面使用其标题进行搜索。您可以使用它的对象来自动化该页面。

Sub demo()

Dim str_val As Object
marker = 0
Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
For x = 0 To (IE_count - 1)
    On Error Resume Next
    my_url = objShell.Windows(x).document.Location
    my_title = objShell.Windows(x).document.Title

    If my_title Like "XYZ" & "*" Then
        Set IE = objShell.Windows(x)
        marker = 1
        Exit For
    Else
    End If
Next

If marker = 0 Then
 MsgBox ("A matching webpage was NOT found")

Else
    MsgBox ("A matching webpage was found")

    Set str_val = IE.document.getElementById("txtbox1")
    str_val.Value = "demo text"

End If
End Sub

输出：

参考：

VBA code to interact with specific IE window that is already open

Answer 2

这适用于 Internet Explorer 和 Windows Explorer 的所有浏览器窗口

Window 是 Internet Explorer 窗口对象。

Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows
For Each window in AllWindows
    msgbox window.location
Next

或者如果你确定它是唯一一个打开的

Set x = GetObject(,"InternetExplorer.Application")