自动5 Firefox选项卡

自动5 Firefox选项卡,firefox,excel,selenium,vba,Firefox,Excel,Selenium,Vba,我希望我们的报告自动化。我们目前在Firefox中有5个标签页,用于报告。每个选项卡都有一个唯一的url,每天早上都会更改。然后,我们必须每天早上更新这些URL(从excel电子表格)。我想自动化这个。不过,我在这方面有一些限制。我无法为每个新url打开一个新选项卡(因此基本上每个选项卡中都需要一个url替换)。我已经研究过硒,但无法使其发挥作用 及 因此,我想知道是否可以使用纯VBA或批处理文件以另一种方式完成此操作?您需要添加对Microsoft Internet控件和Microsoft

我希望我们的报告自动化。我们目前在Firefox中有5个标签页,用于报告。每个选项卡都有一个唯一的url,每天早上都会更改。然后,我们必须每天早上更新这些URL(从excel电子表格)。我想自动化这个。不过,我在这方面有一些限制。我无法为每个新url打开一个新选项卡(因此基本上每个选项卡中都需要一个url替换)。我已经研究过硒,但无法使其发挥作用


因此,我想知道是否可以使用纯VBA或批处理文件以另一种方式完成此操作?

您需要添加对
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
。使用
If/EndIf
一个接一个。

我不知道答案,因为我几乎不使用VBA中的FF,但我很好奇为什么FF而不是IE,它实际上可以让您轻松地从VBA中自动执行?@SiddharthRout-我想在IE中执行此操作,但我找不到自动刷新页面和平铺页面的附加组件,以便自动重新加载和重新加载对于平铺[IE Autorefresh]请参见或[IE tiling]不确定是否存在AdOn,但您可以在不同的窗口而不是选项卡中打开站点,然后右键单击并选择“显示堆叠的窗口”或“并排显示窗口”@SiddharthRout-并排显示的问题是,它看起来可能非常不干净,但如果编码为“更新”URL是容易的并且可以是自动化的,那么我愿意考虑这是可行的,虽然它不是理想的解决方案,但现在必须这样做。谢谢你的时间和努力!