Internetseite öffnen + schließen
26.12.2007 11:56:00
gisela
ich öffne und schließe Internetseiten mit folgenden Code's:
Sub test()
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate ("http:// _
networkwelt.xmarkt.de/kam/anz_confirm.php3?xxxxxxx")
'anpassen
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = True
.Width = 800
.Height = 600
.Left = 0
.Top = 0
End With
Application.Wait (Now + TimeValue("0:00:10")) '10 Sekunden anzeigen
objExplorer.Quit 'schliessen
Set objExplorer = Nothing
Test2
End Sub
Sub test2()
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate ("http://1a.xmarkt. _
de/kam/anz_confirm.php3?xxxxxxxxx")
'anpassen
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = True
.Width = 800
.Height = 600
.Left = 0
.Top = 0
End With
Application.Wait (Now + TimeValue("0:00:10")) '10 Sekunden anzeigen
objExplorer.Quit 'schliessen
Set objExplorer = Nothing
Test3
End Sub
Sub test3()
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate ("http://1a.xmarkt. _
de/kam/anz_confirm.php3?xxxxxxxxx")
'anpassen
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = True
.Width = 800
.Height = 600
.Left = 0
.Top = 0
End With
Application.Wait (Now + TimeValue("0:00:10")) '10 Sekunden anzeigen
objExplorer.Quit 'schliessen
Set objExplorer = Nothing
End Sub
Das funktioniert. Da ich aber noch mehrere Seiten aufrufen möchten, ist meine Frage: geht das auch etwas kürzer?
Kann mir da jemand helfen und mitteilen, wie das ganze dann aussehen muß?
Vielen Dank und liebe Grüße
Gisela