VBA - Starten / Schließen der Seiten im Internet Explorer

Diese Demo ermöglicht:

So öffnen Sie eine Instanz von Internet Explorer
So öffnen Sie eine Seite (URL in der Zelle)
Durch andere Seite ersetzen.
Beachten Sie, dass es auch einen Timer hat

Voraussetzungen

Fügen Sie die Referenz hinzu:

Microsoft Internet Controls
Wählen Sie im VBA-Editor >> Tools >> Referenz die Option "Microsoft Internet Controls" aus.

Das Makro

 Sub OuvrirFermerPageIE () Dim Cel As Range, Plage As Range Dim Start As Single, Delay As Integer Dim IE As InternetExplorer Diese Seite enthält die folgenden Informationen: Application.DisplayAlerts = False Set Plage = Sheets ("Feuil1"). [A1: A5] Delay = Sheets ("Feuil1"). [G8] .Value Wenn Delay = 0, dann Delay = 15 Set IE = New InternetExplorer IE.Visible = True On Error Gehe zu IEfermerOuErreur 'si ont ferme le navigateur For Each Cel In Plage' Siehe Seite IE.Navigate Cel.Value 'Attendre que la page soit prète While IE.ReadyState READYSTATE_COMPLETE DoEvents Wend' Timer (Warten Sie, bis die Einstellungen gültig sind) Start = Timer + Delay 'pour 15 seconde While Timer <Start DoEvents Wend Next Cel' Zurück zum Anfang IE.Quit IEfermerOuErreur: Setzen Sie IE = Nothing Application.DisplayAlerts = True End Sub

Hinweis: Dieses Makro kann in einer anderen Office-Anwendung verwendet werden, Sie müssen jedoch die URL eingeben