Sub test()
Dim ie As Object
Dim link1$, link2$
link1 = <a href=""https://www.herber.de"">"https://www.herber.de"</a>
link1 = <a href=""http://google.de"">"http://google.de"</a>
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate (link1)
'Application.wait halt
ie.Navigate (link2)
On Error Resume Next
If Not ie Is Nothing Then
ie.Quit
Set ie = Nothing
End If
Next
End
Sub
cu Nancy
Sub test()
Dim ie As Object
Dim link1$, link2$
link1 = <a href=""https://www.google.de"">"https://www.google.de"</a>
link2 = <a href=""https://www.herber.de"">"https://www.herber.de"</a>
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate (link1)
Application.Wait waitTime
ie.Navigate (link2)
Application.Wait waitTime
On Error Resume Next
If Not ie Is Nothing Then
ie.Quit
Set ie = Nothing
End If
'Next
End Sub
Sub test()
Dim ie As Object
Dim link1$, link2$
link1 = <a href=""https://www.google.de"">"https://www.google.de"</a>
link2 = <a href=""https://www.herber.de"">"https://www.herber.de"</a>
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate link1
Do: Loop Until ie.busy = False
Do: Loop Until ie.busy = False
Application.Wait waitTime
ie.Navigate link2
Do: Loop Until ie.busy = False
Do: Loop Until ie.busy = False
Set ie = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen