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