VBA - Lansarea / Închiderea paginilor din Internet Explorer

Această demonstrație permite:

Pentru a deschide o instanță a Internet Explorer
Pentru a deschide o pagină (URL în celulă)
Înlocuiți pe altă pagină.
Rețineți că are și un temporizator

Cerințe preliminare

Adăugați referința:

Microsoft Internet Controls
În editorul VBA >> Instrumente >> Referință și selectați "Microsoft Internet Controls"

Macroul

 Sub OuvrirFermerPageIE () Dim cel ca interval, Plage ca dimensiune Dim Dim Start ca singură, întârziere ca întreg Integer IE Ca InternetExplorer 'La plage ou se trouve les liens Aplicație.DisplayAlerts = False Set Plage = Sheets ("Feuil1") [A1: A5] Întârziere = Sheets ("Feuil1") [G8] .Value Dacă Delay = 0 Delay Delay = 15 Set IE = New InternetExplorer IE.Visible = Adevărat pe Eroare GoTo IEfermerOuErreur 'și ont ferme le navigateur Pentru fiecare Cel In Plage' O data la pagina IE.Navigate Cel.Value 'Attendre que la pagina soit prète În timp ce IE.ReadyState READYSTATE_COMPLETE DoEvents Wend' Timer (Wait ralenti les autres appli) Start = Timer + Delay 'pour 15 seconde În timp ce Timer <Start DoEvents Wend Next Cel " Fermer le navigateur IE.Quit IEfermerOuErreur: Setați IE = Nimic Application.DisplayAlerts = True End Sub

Notă: această macrocomandă poate funcționa într-o altă aplicație Office, dar va trebui să introduceți adresa URL