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
I need your support to help me to modify the mentioned code to open Edge browser in IE mode
as i tried more that one modification but with no luck.