Selenium Basic VBA聚焦于通过单击打开的新选项卡

Question

我正在处理用于Excel VBA的Selenium Basic Wrapper，但是在单击打开新选项卡的按钮时，我无法让Selenium Web驱动程序将焦点切换到打开的新选项卡上，并关闭原始选项卡。我相信使用Java Selenium应该可以实现这一点，但是有没有办法通过excel VBA上的Selenium基本包装来实现呢？

Private Sub CommandButton1_Click()

    Dim bot As New ChromeDriver
    Dim merchant As String
    Dim promocode As Object
    Dim number As Long
    Dim test As Object
    Dim testnumber As Integer

    lastColumn = Sheets("Merchants").Range("B" & Rows.Count).End(xlUp).Row

    For i = 2 To lastColumn

        bot.Get (Sheets("Merchants").Range("B" & i).Value)
        merchant = Sheets("Merchants").Range("A" & i).Value

        For Each promocode In bot.FindElementByClass("main_vouchers").FindElementsByClass("c")

            number = Right(promocode.Attribute("id"), 6)

            If IsEmpty(promocode) = True Then Exit For


            promocode.FindElementByClass("go").Click

            #This is the part I have problems with as after click, original page re-directs to another page, and new tab opens (which is the place  I want focus on). Also, I need the original tab closed so that Chrome doesn't end up opening too many tabs due to the loop running. Appreciate the help!

        Next promocode

    Next i

End Sub

只需要Selenium将焦点切换到新打开的标签上，并关闭旧的/原始的标签…

Answer 1

下面的方法适合我，您使用switchtonextwindow，然后从当前窗口计数中删除1（您可能想先检查更多的.windows.count>1)，并在windows集合中关闭该项。

您还可以从当前页提取。SwitchToWindowbyName和。SwitchToWindowbyTitle，如果它们中的任何一个事先已知的话。

'Ensure latest applicable driver e.g. ChromeDriver.exe in Selenium folder
'VBE > Tools > References > Add reference to selenium type library
Public Sub Example()
    Dim d As WebDriver
    Set d = New ChromeDriver
    Const URL = "https://www.cuponation.com.sg/agoda-discount-code"

    With d
        .get URL
        Debug.Print .Window.Title
        .FindElementByCss(".go").Click
        .SwitchToNextWindow
        Debug.Print .URL   '<= includes voucher code
        'do something with new window
        Debug.Print .Window.Title
        .Windows.item(.Windows.Count - 1).Close 'close prior window
        Debug.Print .Window.Title
        Stop
        .Quit
    End With
End Sub