Er der nogen herinde som ved hvordan man checker om f.eks. siden, som starter med ????? allerede er åben i Internet Explorer.

Tak for hjælpen, Ib

 

Det var ikke noget jeg kunne få til at virke, men det ledte mig lidt på vejen.

Nu har jeg fået det lavet, så jeg kan registrere om den ønskede side allerede er åben eller ikke.

Men jeg kan ikke få den til at bringe den til "front" eller maximere den hvis den ligger i baggrunden eller minimeret.

 

Her er det jeg foreløbig har lavet:

 

Sub Findside()
    'Dim objIEBrowser
    Dim res As String
   
    Set objShell = CreateObject("Shell.Application")
    Set objAllWindows = objShell.Windows
    Set mainWorkBook = ActiveWorkbook
   
    For Each ow In objAllWindows
        If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then

            If FindString(ow.LocationURL, LCase("Google")) Then
                MsgBox "Den søgte side er fundet"
            'PROBLEM, har forsøgt meget uden held
            'Hvis den søgte side er fundet skal Internet Explore med den søgte side bringes i front/maximeres på skærmen
            Else
                MsgBox "Den søgte side er ikke fundet"
            End If
        'MsgBox ow.Hwnd & "  " & ow & "   " & ow.LocationURL & "  " & ow.Document.Title
        End If
    Next
End Sub

Function FindString(strCheck As String, strFind As String) As Boolean

Dim intPos As Integer
    intPos = 0

    intPos = InStr(strCheck, strFind)

    FindString = intPos > 0

End Function