TahorSuiJuris
New Member
Tried the below code for the following URL http://ebible.org/study/
Please how to change drop down value from WEB to RV1909
Screenshot of Chrome Inspector https://i.stack.imgur.com/rRtP8.png
Please how to change drop down value from WEB to RV1909
Screenshot of Chrome Inspector https://i.stack.imgur.com/rRtP8.png
Code:
Dim Doc As HTMLDocument
Set Doc = IEApp.document
TestV2 = ""
TestV3 = ""
TestV2 = Doc.getElementsByClassName("app-list text-list")(0).innerText
Debug.Print "4b of 5: " & TestV2
IEApp.Doc.getElementsByClassName("app-list text-list").selectedIndex = 1
IEApp.Doc.getElementsByClassName("app-list text-list").FireEvent ("onchange")
TestV3 = Doc.getElementsByClassName("app-list text-list")(0).innerText
Debug.Print "4c of 5: " & TestV3