VBA - การเปิด / ปิดหน้าเว็บใน Internet Explorer

การสาธิตนี้ช่วยให้:

ในการเปิดอินสแตนซ์ของ Internet Explorer
วิธีเปิดหน้า (URL ในเซลล์)
แทนที่ด้วยหน้าอื่น ๆ
โปรดทราบว่ามันยังมีตัวจับเวลา

ข้อกำหนดเบื้องต้น

เพิ่มการอ้างอิง:

การควบคุมอินเทอร์เน็ตของ Microsoft
ในเครื่องมือแก้ไข VBA >> เครื่องมือ >> ข้อมูลอ้างอิงและเลือก 'Microsoft Internet Controls "

มาโคร

 Sub OuvrirFermerPageIE () Dim Cel As Range, Plage As Range Dim Start เป็น Single, Delay As Integer Dim IE เป็น InternetExplorer 'La plage où se trouve les liens Application.DisplayAlerts = แผ่นเท็จชุด = แผ่น ("Feuil1") [A1: A5] Delay = Sheets ("Feuil1"). [G8] .Value If Delay = 0 จากนั้น Delay = 15 ตั้งค่า IE = InternetExplorer ใหม่ IE.Visible IE.Visible = True ในข้อผิดพลาด GoTo IEfermerOuErreur สำหรับแต่ละ Cel In Plage ' Ouvrir la page IE.Navigate Cel.Value 'Attendre que la page so prèteในขณะที่ IE.ReadyState เตรียม READYSTATE_COMPLETE DoEvents Wend' Timer (รอ ralenti les autres appli) Start = Timer + Delay 'เท 15 วินาทีในขณะที่ตัวจับเวลา <เริ่ม DoEvents Wend Cel ถัดไป' Fermer le navigateur IE.Quit IEfermerOuErreur: ตั้งค่า IE = ไม่มี Application.DisplayAlerts = การสิ้นสุดที่แท้จริง

หมายเหตุ: มาโครนี้สามารถทำงานได้ในแอปพลิเคชัน Office อื่น แต่คุณจะต้องป้อน URL