L'accès IE onglets une fois créé

J'ai trouvé une réponse qui semble fonctionner, mais je n'ai pas fait de tests rigoureux. J'ai modifié ton code pour que je puisse l'exécuter sans votre clsIE module. Ce code permet de naviguer dans les différents onglets 3 url lors de l'ouverture et accède ensuite à la nouvelle url à l'aide de la shellwindows objet.

J'ai changé le faire alors que .occupée.. lignes qu'ils n'ont pas de travail pour les 2ème et 3ème onglets en ce que l'état de l'IE applecation était prêt tandis que les nouveaux onglets étaient toujours en cours de chargement.

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

Il utilise le ShellWindows pour manipuler les onglets. Ceci n'est fait que par le nombre donc je suppose qu'il pourrait être sujette à des erreurs.

Pour le rendre plus robuste, vous pouvez obtenir des informations à partir de l'onglet après une opération et vérifier que la valeur est la même, en revenant à elle. Par exemple sPageTitle = SWs.Item(IETab3Number - 1).Document.Title pourrait être utilisé pour enregistrer le titre de la page dans un onglet, la prochaine fois que vous voulez utiliser la touche de tabulation, vous pouvez vérifier qu'il n'a pas changé.

OriginalL'auteur Graham Anderson

Voici comment j'ai résolu le problème de regroupement des onglets dans une fenêtre IE à l'aide de VBScript. Si la fonction trouve la fenêtre de IE avec un onglet dont l'URL commence par tabGroupS (par exemple,"http://stackoverflow.com"), puis il ajoute un nouvel onglet de cette fenêtre et retourne cet onglet sinon, il ouvre une nouvelle fenêtre.

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

OriginalL'auteur Winand