Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

url im selben fenster mehrfach öffnen

url im selben fenster mehrfach öffnen
Dennis
hi @ all,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: url im selben fenster mehrfach öffnen
NE
Hi Dennis,
sorry, das mit dem Warten hab ich nicht getestet, aber probier mal:

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

Anzeige
AW: url im selben fenster mehrfach öffnen
NE
... ähm, ohne die html-Tags natürlich ;;-)), achja und ich les grad,
das next hab ich vergessen zu löschen ;-(
AW: url im selben fenster mehrfach öffnen
18.04.2004 21:43:54
Dennis
Das sieht schon supi aus. Danke!
Aber Link2 wird nicht gestartet...?

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

Anzeige
AW: url im selben fenster mehrfach öffnen
Reinhard
Hi Dennis,
probiers mal mit nachfolgenden Code.
Gruß
Reinhard
ps:keine Ahnung warum da html-Tags auftauchen

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige