VBA - Internet Explorer lapu atvēršana / aizvēršana

Šī demonstrācija ļauj:

Lai atvērtu Internet Explorer piemēru
Lai atvērtu lapu (URL šūnā)
Aizstājiet citu lapu.
Ņemiet vērā, ka tai ir arī taimeris

Priekšnoteikumi

Pievienojiet atsauci:

Microsoft interneta vadīklas
VBA redaktorā >> Rīki >> Atsauce un izvēlieties "Microsoft Internet Controls"

Makro

 Sub OuvrirFermerPageIE () Dim Cel kā diapazons, diapazons kā diapazons Dim Sākt kā vienotu, aizkavēšanās kā vienota izmēra dimensija IE Kā InternetExplorer 'La plage où se trouve les liens Application.DisplayAlerts = False Set Plage = Lapas ("Feuil1"). [A1: A5] Delay = Loksnes ("Feuil1") [G8] .Vērtība Ja Delay = 0 Tad Delay = 15 Iestatīt IE = Jauns InternetExplorer IE.Visible = True On Error GoTo IEfermerOuErreur 's ontermaters par katru Cel In Plage' Ouvrir la lappuse IE.Navigate Cel.Value 'Attendre que la page soit prète Kaut arī IE.ReadyState READYSTATE_COMPLETE DoEvents Wend' Taimeris (Pagaidiet ralenti les autres pieteikumu) Start = Timer + Delay 'pour 15 seconde Kamēr taimeris <Start DoEvents Wend Next Cel' Fermer le navigateur IE.Quit IEfermerOuErreur: Iestatīt IE = Nekas Programmatūra.DisplayAlerts = True End Sub

Piezīme. Šis makro var darboties citā Office lietojumprogrammā, bet jums būs jāievada URL