VBA IE change dropdown value

Question

Tried the below code for following URL Scripture look up. Please how to change drop down value from WEB to RV1909?

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

Tried many approaches from other posts, the following does not work:

IEApp.Doc.getElementsByClassName("app-list text-list")(0).innerHTML = "RV1909"

Here is the screenshot of Chrome Inspector:

omegastripes · Accepted Answer · 2017-08-10 08:05:49Z

1

In this case it's not enough just change div.app-list.text-list element innerText, as you can see that element is simple div, but not even ul. It should be changed by scripts which are called on click events. So, first of all you need to click on div to display the entire list, and then click on the RV1909 item. The below example shows how that could be done:

Sub Test()

    Dim oIE As Object
    Dim oDiv As Object

    Set oIE = CreateObject("InternetExplorer.Application")
    With oIE
        .Visible = True
        .Navigate "http://ebible.org/study/"
        Do While .readyState <> 4 Or .Busy
            DoEvents
        Loop
        With .Document
            Do While .readyState <> "complete"
                DoEvents
            Loop
            Set oDiv = .getElementsByClassName("app-list text-list")(0)
            oDiv.Click
            Do While .readyState <> "complete"
                DoEvents
            Loop
            For Each oNode In .getElementsByClassName("text-chooser-main")(0).getElementsByClassName("text-chooser-abbr")
                If oNode.innerText = "RV1909" Then
                    oNode.Click
                    Do While oDiv.innerText <> "RV1909"
                        DoEvents
                    Loop
                    Exit For
                End If
            Next
        End With
    End With

End Sub

answered Aug 10, 2017 at 8:05

omegastripes

12.6k4 gold badges52 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Tahor Sui Juris Over a year ago

Thank you for the solution.

James · Accepted Answer · 2017-07-29 16:07:50Z

0

Change the html div element <div class=app-list text-list>WEB</div> to <div class=app-list text-list>RV1909</div>

answered Jul 29, 2017 at 16:07

James

1,9923 gold badges15 silver badges31 bronze badges

2 Comments

Tahor Sui Juris Over a year ago

Please, how would I modify this to change the DIV IEApp.Doc.getElementsByClassName("app-list text-list")(0).Value = "RV1909"

Tahor Sui Juris Over a year ago

Tried many approaches from other posts, the following does not work: IEApp.Doc.getElementsByClassName("app-list text-list")(0).innerHTML = "RV1909"

Collectives™ on Stack Overflow

VBA IE change dropdown value

2 Answers 2

1 Comment

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related