Internetseite schließen
22.09.2008 10:44:00
Peter
Wie kann ich am Ende die Internetseite wieder schließen.
Sub Browser_Steuerung()
Dim ie As Object
Dim t
Dim maxDuration As Double
t = Timer
maxDuration = 5 'Einstellung der Zeit fürs Warten
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "www.herber.de/forum"
'Warteschleife bis Seite Geladen
Do While Not ie.readyState = 4 Or ie.Busy = True
DoEvents
If Timer - t > maxDuration Then
MsgBox "Zu lange!!!"
Exit Sub
End If
Loop
'Und ab hier kommt Deine Webabfrage
MsgBox "Abfrage OK"
End Sub
Danke.
Grüße
Peter