在 IE 模式下打开边缘

Question

Sub Resolve()

    Dim obj As New WebDriver
    obj.Start "Edge", ""
    obj.Get "wwww.website for example.com"
    obj.FindElementById("s_swepi_1").SendKeys (ThisWorkbook.Sheets("Actions").Range("J1").Value)
    obj.FindElementById("s_swepi_2").SendKeys (ThisWorkbook.Sheets("Actions").Range("J2").Value)
    obj.FindElementByLinkText("Login").Click
    Application.Wait (Now + TimeValue("0:00:10"))
    For i = 1 To 1000 ' change 10 to the number of rows you want to loop through
    If ThisWorkbook.Sheets("Actions").Range("A" & i).Value = "" Then
            MsgBox "Finish"
            Exit For
        End If
        obj.FindElementById("s_1_1_4_0_Ctrl").Click
        obj.FindElementById("1_s_1_l_SR_Id").Click
        obj.FindElementById("1_SR_Id").SendKeys (ThisWorkbook.Sheets("Actions").Range("A" & i).Value)
        obj.FindElementById("s_1_1_0_0_Ctrl").Click
        obj.FindElementByName("s_2_1_40_0").ClickDouble
        obj.FindElementByName("s_2_1_40_0").SendKeys (ThisWorkbook.Sheets("Actions").Range("D" & i).Value)
        obj.FindElementByName("s_2_1_53_0").ClickDouble
        obj.FindElementByName("s_2_1_53_0").SendKeys (ThisWorkbook.Sheets("Actions").Range("B" & i).Value)
        obj.FindElementById("1_s_1_l_Type").ClickDouble
        obj.FindElementByName("s_3_1_43_0").SendKeys (ThisWorkbook.Sheets("Actions").Range("C" & i).Value)
        obj.FindElementById("1_s_1_l_Type").ClickDouble
    Next i
End Sub

我需要您的支持来帮助我修改上述代码以Edge browser in IE mode因为我尝试了多次修改但没有成功。

Answer 1

我不得不说使用 VBA Selenium 自动化 IE 模式目前是不可能的。 IE模式自动化的先决条件之一是定义Inte.netExplorerOptions （ 参考文档），VBA Selenium没有。 但是，我为您找到了一些可能的替代方案。 请检查此线程。