特定のURLを表示しているIEをつかむ

'--- 特定のURLを表示しているIEを掴まえてIEオブジェクトを返す関数 ---
Public Function getIE(ByVal URL As String)

    Dim objShell  As Object, objWin As Object
    
    'Shellオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")
    
    For Each objWin In objShell.Windows

        If objWin.Name = "Internet Explorer" Then

            If objWin.LocationURL = URL Then
                Set getIE = objWin
                Exit For
            End If

        End If

    Next
    
End Function