Get control on newly opened tab on webpage

[Dyak]

My code opens up a webpage and then click on a certain link on that page which opens in a new tab. I am hoping to get "control" on that new tab (using getelemenbyid, etc), but alas, my code remains on referring to my first page.

Sorry, for some reason I cant share the code and I have very little knowledge in web automation.

Any help would be greatly appreciated. Thanks!

 

[John_w]

Welcome to MrExcel forums.

You can loop through Shell.Windows, which contains all the IE tabs and windows and File Explorer windows, looking for the URL or location name of the required tab. Call this function:

Private Function Get_IE_Window(URLorName As String) As InternetExplorer

    'Look for an IE browser window or tab already open at the (partial) URL or location name and, if found, return
    'that browser as an InternetExplorer object.  Otherwise return Nothing

    Dim Shell As Object
    Dim IE As InternetExplorer
    Dim i As Variant 'Must be a Variant to index Shell.Windows.Item() array
   
    Set Shell = CreateObject("Shell.Application")
   
    i = 0
    Set Get_IE_Window = Nothing
    While i < Shell.Windows.Count And Get_IE_Window Is Nothing
        Set IE = Shell.Windows.Item(i)
        If Not IE Is Nothing Then
            Debug.Print IE.LocationURL, IE.LocationName
            If IE.Name = "Internet Explorer" And InStr(IE.LocationURL, "file://") <> 1 Then
                If InStr(1, IE.LocationURL, URLorName, vbTextCompare) > 0 Or InStr(1, IE.LocationName, URLorName, vbTextCompare) > 0 Then
                    Set Get_IE_Window = IE
                End If
            End If
        End If
        i = i + 1
    Wend
   
End Function

Like this:

    Dim IE As InternetExplorer

    Set IE = Get_IE_Window("URL or location name of required tab, or part thereof")
    If IE Is Nothing Then
        MsgBox "Tab not found"
    Else
        MsgBox "Found tab " & IE.LocationURL & " - " & IE.LocationName
    End If

The code requires a reference to MS Internet Controls.

 

[Dyak]

Thank you so much...i'll tryit