自动5 Firefox选项卡
我希望我们的报告自动化。我们目前在Firefox中有5个标签页,用于报告。每个选项卡都有一个唯一的url,每天早上都会更改。然后,我们必须每天早上更新这些URL(从excel电子表格)。我想自动化这个。不过,我在这方面有一些限制。我无法为每个新url打开一个新选项卡(因此基本上每个选项卡中都需要一个url替换)。我已经研究过硒,但无法使其发挥作用 及自动5 Firefox选项卡,firefox,excel,selenium,vba,Firefox,Excel,Selenium,Vba,我希望我们的报告自动化。我们目前在Firefox中有5个标签页,用于报告。每个选项卡都有一个唯一的url,每天早上都会更改。然后,我们必须每天早上更新这些URL(从excel电子表格)。我想自动化这个。不过,我在这方面有一些限制。我无法为每个新url打开一个新选项卡(因此基本上每个选项卡中都需要一个url替换)。我已经研究过硒,但无法使其发挥作用 及 因此,我想知道是否可以使用纯VBA或批处理文件以另一种方式完成此操作?您需要添加对Microsoft Internet控件和Microsoft
因此,我想知道是否可以使用纯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是容易的并且可以是自动化的,那么我愿意考虑这是可行的,虽然它不是理想的解决方案,但现在必须这样做。谢谢你的时间和努力!