Office: Internet Explorer per VBA schließen

Hallo Leute!!!

möchte aus meinem Programm eine seite mit IE öffnen und nach bestimmter Zeit wieder schließen. Wie mach ich das am einfachsten?


Alex

:)

 

Moin, Alex,

zum Öffnen könnte entweder ab Excel2000 das Ereignis Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) bzw. Worksheet_FollowHyperlink(ByVal Target As Hyperlink) oder der Code aus Internet Explorer mittels Excel vba schliessen? (wirklich zum Öffnen *wink.gif*) verwendet werden, zum Schließen der Ansatz aus Alle IE-Fenster schließen, für die Zeit OnTime oder SLEEP...

 

Hallo,

oder so:

Sub ie_test()
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate ("http://www.google.de/") '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


mfg Anton

 

Danke! wie immer sehr hilfreich