[Tasos]

Καλησπέρα Αλέξανδρε και χρόνια σου πολλά!

Δες έναν παραδειγματικό κώδικα για να ανοίξεις την εφαρμογή Internet Expolrer και να περιηγηθείς
σε μια ιστοσελίδα:

Option Explicit

Sub OpenIEApp()

' Δήλωση του Αντικειμένου "InternetExplorer" (Late Binding)
  Dim ie As Object

' Δήλωση του Αντικειμένου "InternetExplorer" (Early Binding)
' Προϋποθέτει την αναφορά "Μicrosoft Internet Controls" (ieframe.dll)
'    Dim ie As InternetExplorer


    'Δημιουργία εφαρμογής Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")

    'Περιήγηση σε μια ιστοσελίδα
    ie.Navigate2 "http://www.ms-office.gr/forum/"

    'Ορίζουμε την ιδιότητα του αντικειμένου σε "Ορατό"
    ie.Visible = True

    'Ο κώδικας περιμένει να φορτωθεί πλήρως η ιστοσελίδα

'    While ie.ReadyState <> READYSTATE_COMPLETE '(Early Binding)
'        DoEvents
'    Wend

    While ie.ReadyState <> 4
        DoEvents
    Wend

    ' Ο κώδικας που ίσως χρησιμοποιήσεις για να κάνεις κάτι στην ιστοσελίδα
    '.................
    '.................

    'Για να κλείσεις την εφαρμογή του internet Expolrer:
    ie.Quit
    'ή
    'ie.ExecWB OLECMDID_CLOSE, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0 '(Early Binding)
    ie.ExecWB 45, 2, 0, 0    '(Late Binding)

    'Απαλοιφή του αντικειμένου από τη μνήμη
    Set ie = Nothing
End Sub

Φιλικά

Τάσος