自动化5 Firefox选项卡

Answer 1

您需要添加对Microsoft Internet控件和Microsoft Shell控件和自动化的引用。见下面的截图。

代码：

Sub Work_With_Open_IE_Instance()
    Dim objShell As Shell
    Dim objIE As InternetExplorer
    Dim objWin As Object

    Set objShell = New Shell

    For Each objWin In objShell.Windows
        If TypeName(objWin.Document) = "HTMLDocument" Then
            Set objIE = objWin

            '~~> This will display the URL of the IE which we will use to bind
            Debug.Print objIE.LocationURL

            '~~> Example to bind
            '~~> Change URL to your existing URL
            Select Case objIE.LocationURL
                Case "https://www.google.com"
                    With objIE
                        .Refresh
                        '
                        '~~> Rest of the code
                        '
                    End With
                Case "http://in.msn.com"
                    With objIE
                        .Refresh
                        '
                        '~~> Rest of the code
                        '
                    End With
                End Select
            End If
        End If
    Next objWin
End Sub

选择case只是为了演示。如果您想一个接一个地使用它们，那么不要使用select case。依次使用if/endif。