VBA - Peluncuran / Penutupan halaman di Internet Explorer

Demo ini memungkinkan:

Untuk membuka contoh Internet Explorer
Untuk membuka halaman (URL di sel)
Pengganti dengan halaman lain.
Perhatikan bahwa ia juga memiliki timer

Prasyarat

Tambahkan referensi:

Kontrol Internet Microsoft
Di VBA Editor >> Tools >> Reference dan pilih 'Microsoft Internet Controls "

Makro

 Sub OuvrirFermerPageIE () Rentang Dim Cel Sebagai, Rentang Sebagai Rentang Dim Mulai Sebagai Tunggal, Delay Sebagai Integer Dim IE Sebagai InternetExplorer 'La plage dari daftar menu Application.DisplayAlerts = Salah Set Plage = Lembar ("Feuil1"). [A1: A5] Delay = Sheets ("Feuil1"). [G8] .Nilai Jika Delay = 0 Kemudian Delay = 15 Set IE = InternetExplorer Baru IE.Visible = True On Error GoTo IEfermerOuErreur 'ont ferme le navigateur Untuk Each Cel In Plage' Buka halaman IE.Navigate Cel.Value 'Attendre que la page soit prète Sementara IE.ReadyState READYSTATE_COMPLETE DoEvents Timer Wend' (Tunggu ralenti les autres appli) Mulai = Timer + Tunda 'tuangkan 15 detik Sementara Timer <Mulai DoEvents Wend Next Cel' Fermer le navigator IE.Quit IEfermerOuErreur: Set IE = Nothing Application.DisplayAlerts = True End Sub

Catatan: Makro ini dapat berfungsi di aplikasi Office lain tetapi Anda harus memasukkan URL