VBA - Εκκίνηση / Κλείσιμο των σελίδων στον Internet Explorer
![](http://img.brin-designs.com/img/games/819/vba-launching-closing-pages-internet-explorer.png)
Αυτό το demo επιτρέπει:
- Για να ανοίξετε μια παρουσία του Internet Explorer
- Για να ανοίξετε μια σελίδα (URL στο κελί)
- Αναπληρώστε από άλλη σελίδα.
- Σημειώστε ότι έχει επίσης χρονοδιακόπτη
Προϋποθέσεις
Προσθέστε την αναφορά:
- Microsoft Internet Controls
- Στο πρόγραμμα επεξεργασίας VBA >> Εργαλεία >> Αναφορά και επιλέξτε 'Microsoft Internet Controls'
Η μακροεντολή
(A), (), (), (), (), (), (), A5] Καθυστέρηση = Φύλλα ("Feuil1") [G8] .Value Αν Καθυστέρηση = 0 Κατόπιν Καθυστέρηση = 15 Ρύθμιση IE = New InternetExplorer IE.Visible = True On Error GoTo IEfermerOuErreur ' Ο χρόνος (Wait ralenti les autres appli) Έναρξη = Χρονοδιακόπτης + Καθυστέρηση "για 15 δευτερόλεπτα Ενώ ο Χρονοδιακόπτης <Έναρξη DoEvents Wend Next Cel" Fermer le navigateur IE.Quit IEfermerOuErreur: Ρύθμιση IE = Καμία εφαρμογή Application.DisplayAlerts = True End Sub
Σημείωση: Αυτή η μακροεντολή μπορεί να λειτουργήσει σε άλλη εφαρμογή του Office αλλά θα πρέπει να εισαγάγετε τη διεύθυνση URL
Κατεβάστε
Επίδειξη: Βιβλίο εργασίας Excel 97-2003: εδώ
Λειτουργεί στο Excel 2007