Select an item in an IE combobox - vba

Question

I've got the correct code to navigate to a website where I want to start populating the dropdown lists and fields etc. The code I've been trying, following #Bond 's suggestion, is:
Sub GetQuote()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate ("website")
IE.Visible = True
Do
DoEvents
Loop Until IE.readystate = 4
Dim e
Set e = IE.document.getElementsByClassname("id of button")(1)
e.Click
Application.Wait (Now + TimeValue("00:00:02"))
Do
DoEvents
Loop Until IE.readystate = 4
Dim z As Object
Set z = IE.document.getElementbyid("vehicleYearOfManufactureList")
z.SelectedIndex = 4
End Sub
This used to populate the first dropdown with the value 2012 but now I just get a run-time error where object is required. Could it be because previously the link that is clicked on used to open in the same and current window, and now it's somehow opening an entirely new window? I'm just baffled by how the same code works and then doesn't work, assuming no changes have been made to the source code it references.
The line that is highlighted in the debug of this error is: Set z = IE.document.getElementbyid("vehicleYearOfManufactureList"). As per the comment I made below, it's a "run-time 424: object" required error

Answer 1

You can do this a few ways. If you know the index of the item, you can set it directly using the <select> element's SelectedIndex property. In your case, "2012" is the 4th item in the dropdown:
Set e = IE.document.getElementbyid("vehicleYearOfManufactureList")
e.SelectedIndex = 4
Alternatively, you can iterate all of the <option> elements in the dropdown to find the value you're looking for, then set its Selected property to True:
Set e = IE.document.getElementbyid("vehicleYearOfManufactureList")
Dim o
For Each o In e.Options
If o.Value = "2012" Then
o.Selected = True
Exit For
End If
Next