VBA to select HTML Drop Down

[bevymart]

Hey Folks,

Seen a few solutions on here but still stuck on this. .I'm trying to get a solution to set a drop down field that isn't named

I'm trying to get it to select "Moving" or "Storage" depending on the customer type but I'm not having any luck

Any ideas or help would be greatly appreciated

 

[John_w]

Welcome to MrExcel forums.

Try something like this. Needs MS HTML Object Library reference and IE is the InternetExplorer object with the webpage loaded.

    Dim HTMLdoc As HTMLDocument
    Dim selectElements As IHTMLElementCollection
    Dim selectElement As HTMLSelectElement
    Dim i As Long
    
    Set HTMLdoc = IE.document
    Set selectElements = HTMLdoc.getElementsByTagName("SELECT")
    Set selectElement = Nothing
    i = 0
    While i < selectElements.Length And selectElement Is Nothing
        If InStr(selectElements(i).innerHTML, "Select Customer Type") Then Set selectElement = selectElements(i)
        i = i + 1
    Wend
    If Not selectElement Is Nothing Then
        selectElement.Value = "Moving"
    Else
        MsgBox "Not found"
    End If

 

[bevymart]

Thanks!