Prüfen, ob IE Seite vorhanden, sonst öffnen
15.06.2018 15:35:34
Sina
ich benötige Hilfe bei der folgenden Problemstellung:
Mein Programm soll prüfen, ob eine Internet Explorer Seite geöffnet ist.
Wenn ja, dann soll das Fenster mit genau diese Seite aktiviert (also in den Vordergrund des Monitors geholt werden). Wenn nein, dann soll die Seite geöffnet werden.
Zum Hintergrund sollte ich vielleicht noch erklären, dass ich mehrere Internetseiten gleichzeitig geöffnet habe und meine Anzeige zwischen diesen Seiten und meiner Excel Liste hin und her springen soll.
Hier mein Code:
Sub prüfen_ob_webseite_geöffnet()
Dim objShell As Object
Dim IEApp As Object, win As Object
Dim adresse As String, gefunden As Boolean
gefunden = False
adresse = "https://www.google.de/" 'anpassen
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then
If win.Document.Location = adresse Then
gefunden = True
AppActivate win.Document.Title & " - Win"
End If
End If
Next
If gefunden = False Then
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate adresse
Set IEApp = Nothing
End If
Set objShell = Nothing
End Sub
Leider geht das System bei dieser Zeile immer auf die Barrikarden.
AppActivate win.Document.Title & " - Win"
ich habe auch schon versucht AppActivate Direkt mit Google aufzurufen, also
AppActivate "Google - Internet Explorer"
Tut aber leider auch nicht...
Ich würde mich über Hilfe sehr freuen.
Vielen Dank im Voraus und allen ein schönes Wochenende!