Zugriff auf IE-tabs einmal erstellt

Habe ich eine Antwort gefunden, die zu funktionieren scheint, obwohl ich nicht getan habe, strenge Tests. Ich habe es modifiziert Ihren code so, dass ich es ohne Ihre clsIE Modul. Dieser code navigiert die Registerkarten, um die 3 urls, wenn Sie diese öffnen und dann navigiert Sie zu neuen urls über die shellwindows-Objekt.

Änderte ich das tun, während .damit beschäftigt.. Zeilen wie Sie funktionieren nicht für die 2. und 3. Registerkarten, die den Zustand des IE applecation bereit war, während die neuen tabs waren noch geladen.

Sub Example_Click()
Dim ieApp As InternetExplorer
Dim SWs As ShellWindows
Dim IETab1Number As Integer
Dim IETab2Number  As Integer
Dim IETab3Number As Integer

Set SWs = New ShellWindows

'Create IE and login
If ieApp Is Nothing Then
    Set ieApp = CreateObject("InternetExplorer.Application")
    With ieApp

       'IE Tab1
       .Visible = True
       .Navigate "http://www.bbc.co.uk/news/"
       Do While .Busy Or Not .ReadyState = IE_READYSTATE.complete: DoEvents: Loop
       IETab1Number = SWs.Count

       'IE Tab2
       .Navigate2 "http://www.bbc.co.uk/news/uk-scotland-north-east-orkney-shetland-23822420", CLng(2048)
       'Do While .Busy Or Not .ReadyState = IE_READYSTATE.complete: DoEvents: Loop
       Do While SWs.Count = IETab1Number: DoEvents: Loop

       IETab2Number = SWs.Count

       'IE Tab3
       .Navigate2 "http://www.bbc.co.uk", CLng(2048)
       'Do While .Busy Or Not .ReadyState = IE_READYSTATE.complete: DoEvents: Loop
       Do While SWs.Count = IETab2Number: DoEvents: Loop
       IETab3Number = SWs.Count
       'ieApp.Visible = False

       SWs.Item(IETab1Number - 1).Navigate "http://www.bbc.co.uk/"
       SWs.Item(IETab2Number - 1).Navigate2 "http://www.bbc.co.uk/news/"
       SWs.Item(IETab3Number - 1).Navigate2 "http://www.bbc.co.uk/news/"


    End With
End If
Set ieApp = Nothing
Set SWs = Nothing

End Sub

Es nutzt die ShellWindows-zum Bearbeiten der Registerkarten. Dies geschieht nur durch die Anzahl, so dass ich vermute, es könnte anfällig für Fehler.

Machen es robuster ist möchten Sie vielleicht einige Informationen aus dem Register nach einer operation und überprüfen Sie, dass der Wert ist der gleiche bei der Rückkehr, um es. Zum Beispiel sPageTitle = SWs.Item(IETab3Number - 1).Document.Title könnte verwendet werden, um speichern Sie den Titel der Seite in einem tab, wenn Sie das nächste mal verwenden möchten, die Registerkarte können Sie überprüfen, dass es sich nicht geändert hat.

InformationsquelleAutor Graham Anderson

Ist hier, wie ich gelöst, das problem der Gruppierung von tabs in einem IE-Fenster mit VBScript. Wenn die Funktion feststellt, IE-Fenster mit einer Registerkarte, deren URL beginnt mit tabGroupS (z.B. "http://stackoverflow.com") fügt eine neue Registerkarte in diesem Fenster und gibt diese Registerkarte, andernfalls es öffnet sich ein neues Fenster.

Private Function getNewTab(tabGroupS)
    Dim i, objs, cnt, openflag
    Set objs = CreateObject("Scripting.Dictionary")
    Set SWObj = CreateObject("Shell.Application").Windows()
    For Each i In SWObj
        If LCase(Right(i.FullName, 12)) = "iexplore.exe" Then objs.Add objs.Count, i
    Next
    cnt = SWObj.Count
    For Each i In objs
        If Left(objs(i).LocationURL, Len(tabGroupS)) = tabGroupS Then
            openflag = True
            objs(i).Navigate2 "about:blank", &H800
            Exit For
        End If
    Next
    If Not openflag Then
        Set getNewTab = CreateObject("InternetExplorer.Application")
        getNewTab.Visible = True
        Exit Function
    End If
    Do: WScript.Sleep 100: Loop Until SWObj.Count > cnt 'wait until new tab is opened
    For Each i In SWObj
        If LCase(Right(i.FullName, 12)) = "iexplore.exe" Then
            If Not hasObj(i, objs) Then
                Set getNewTab = i
                Exit Function
            End If
        End If
    Next
End Function

Function hasObj(obj, col)
    For Each i In col
        If obj Is col(i) Then
            hasObj = True
            Exit Function
        End If
    Next
End Function

InformationsquelleAutor Winand