Selenium+VBA控制Chrome

Question

我使用selenium+vba启动chrome来打开单元格范围（“A1:A10”）中列出的10个URL。我对硒并不熟悉，在尝试了很多次之后，我终于在笨拙的代码下面出来了。

Private selenium As New ChromeDriver

Sub test()
Dim cell As Range
Dim keys As New selenium.keys
Dim pageNo As Integer

    pageNo = 0
    selenium.Start "chrome", "http://www.google.com/"
    For Each cell In Range("A1:A10")
        If pageNo >= 1 Then
            selenium.SendKeys keys.Control & "t" + keys.Control & "t"
            selenium.SwitchToNextWindow
        End If
        selenium.Get cell.Value
        pageNo = pageNo + 1
    Next
End Sub

提出的几个麻烦和问题：

>

我很困惑为什么我必须发送2次“Ctrl+T”键才能成功打开新选项卡。

Answer 1

我很困惑为什么我必须发送2次“Ctrl+T”键才能成功打开新标签。

修饰键应该在第一个参数中,而键应该在第二个参数中：

driver.SendKeys Keys.Control, "t"

在您的情况下,更好的方法是使用一些JavaScript打开一个新窗口：

Private Keys As New selenium.Keys
Private driver As New selenium.ChromeDriver

Sub test()
  Const JS_NEW_WINDOW = "window.open(arguments[0], name);"

  driver.Get "http://www.google.com/"
  For i = 0 To 9
    If i Then
      driver.ExecuteScript JS_NEW_WINDOW, "http://www.google.com/"
      driver.SwitchToNextWindow
      driver.FindElementById("lst-ib").SendKeys "some text " & i
    End If
  Next
End Sub

Dim driver As New Selenium.ChromeDriver
driver.SetPreference "plugins.plugins_disabled", Array("Adobe Flash Player")
For i = 0 To 9
  driver.Get "http://www.google.com/"
  Waiter.wait 500  ' waits 500ms
Next

Dim driver As Selenium.ChromeDriver

Sub Main
  Set driver = New Selenium.ChromeDriver
  driver.Get "http://www.google.com/"

End Sub