ich öffne mit shell() den IE mit einer bestimmten url. Nun möchte ich nach ca. 5sek wartezeit im bereits geöfneten fenster eine weitere url öffnen...
Helpt me please
Danke
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