VBA - Melancarkan / Menutup halaman di Internet Explorer

Demo ini membolehkan:

Untuk membuka contoh Internet Explorer
Untuk membuka halaman (URL dalam sel)
Gantikan oleh halaman lain.
Perhatikan bahawa ia juga mempunyai pemasa

Prasyarat

Tambah rujukan:

Kawalan Internet Microsoft
Dalam Editor VBA >> Alat >> Rujukan dan pilih 'Kawalan Internet Microsoft "

Makro

 Sub OuvrirFermerPageIE () Dim Cel As Range, Plage As Range Dimulai Sebagai Single, Delay As Integer Dim IE As InternetExplorer 'La plage où se trouve les liens Application.DisplayAlerts = Pseudo Set Plage = Sheets ("Feuil1"). [A1: A5] Delay = Sheets ("Feuil1"). [G8] .Value If Delay = 0 Then Delay = 15 Set IE = New InternetExplorer IE.Visible = True On Error GoTo IEfermerOuErreur 'si ont ferme le navigateur For Each Cel In Plage' Ouvrir la page IE.Navigate Cel.Value 'Attendre que la page soit prète While IE.ReadyState READYSTATE_COMPLETE DoEvents Wend' Timer (Wait ralenti les autres appli) Start = Timer + Delay 'pour 15 seconde While Timer <Start DoEvents Wend Next Cel' Fermer le navigateur IE.Quit IEfermerOuErreur: Tetapkan IE = Tiada Permohonan.DisplayAlerts = Sub Akhir Sub

Nota: Makro ini boleh berfungsi dalam aplikasi Pejabat lain tetapi anda perlu memasukkan URL