Select from Drop down list in Internet Page

[23izkool]

Hi all,
PROBLEM
I am trying to select an option within a dropdown list in internet explorer but cannot seem to access the 'select' tagname with all syntax
SOURCE CODE OF INTERNET PAGE
<select id = "selectlist" name = "selectlist" class = "c23_normalText">
<option value = "1" selected>This is Option 1 </option>
<option value = "2" selected>This is Option 2 </option>
</select>
WHAT I TRIED SO FAR
I have tried the following syntax to select Option 1 but to no avail:
~ "With appIE
.document.forms.Item("selectlist").Value = "1"
(I keep getting the error "Runtime error '91'. Object variable or With block variable not set)
~ Also tried "getelementsbytagname("selectlist") but also could not access
Hope someone can help on this! Thanks!

[Crocus Crow]

Assuming that the HTML form in which the select element resides is the first form on the web page, i.e. forms(0), try:

.document.forms(0).Item("selectlist").Value = "1"

[23izkool]

Hi,

I received the following message when I typed in the code you recommended:
"invalid or unqualified reference"

So I added 'With appIE.....End With" before and after the line --> the error was gone.

BUT I received another error "object variable or with block variable not set"
Can someone advise on this? Thanks!

[23izkool]

HI everyone, this is the whole code which I am using when I tried to select the option value and a few points which I considered - hope it helps give some brilliant ideas to solve my problem!!


The macro below will print on the main worksheet the names of all the option value and select list
BUT it works on the below website & NOT my company intranet website
I noticed my company website uses java scripting but I am not sure which info I shld pick out to share here to get some solutions. If you want to look at any part, pls let me know & i will type it out line by line here...just wants to get this going!
Also, I have been seekin help and understand perhaps where the dropdown list sits in will matter --> i.e. which forms but when I use '.document.forms(0).item("selectlist").value="1", I keep getting error like "runtime error 91" & "object variable or with block variable not set"
Hope someone can give some ideas on this!
I am on the verge of using sendkeys which I'm sure will be loads of problems given e instability of sendkeys..
Hope someone can help on this!


Sub SelectFromDropDownList()
Dim appIE As InternetExplorer, btnSelect As MSHTML.HTMLSelectElement
Dim btnOption As MSHTML.HTMLOptionElement, ElementCol As MSHTML.IHTMLElementCollection
Dim ElementCol1 As MSHTML.IHTMLElementCollection
Application.ScreenUpdating = False
Set appIE = New InternetExplorer
With appIE
.Visible = True
.navigate "http://app.lta.gov.sg/home_list.asp (http://app.lta.gov.sg/home_list.asp)"
End With
Do While appIE.Busy Or appIE.Readystate <> Readystate_Complete
DoEvents
Loop
' In LTA job search webpage, go to the drop down list "Select by Qualification" and make a selection.
'========================================================================== =================================
Set ElementCol = appIE.Document.getElementsByTagName("Select")
For Each btnSelect In ElementCol
If btnSelect.Name = "Min_Qualification" Then
'Within the "Select" element named "Min_Qualification", group all the "Option" element in "ElementCol1"
Set ElementCol1 = btnSelect.getElementsByTagName("Option")
For Each btnOption In ElementCol1
' There are 5 options to select from: "" i.e. the null option,
' "Degree",
' "Diploma",
' "Post-Graduation" and
' "GCE-A/N/O/ITE"
' The webpage's default choice is ""
If btnOption.Value = "GCE-A/N/O/ITE" Then 'Select the option "GCE-A/N/O/ITE"
btnOption.Selected = True
End If
Next btnOption
End If
Next btnSelect
'========================================================================== =================================
Application.ScreenUpdating = True
End Sub
Sub GetOptionValue()
' This subroutine prints out the option value of each of the "Select" element onto the second worksheet
' The first row contains the ID of each "Select" element, the columns under the first row contains the
' respective option values and the text associated to each option value
Dim appIE As InternetExplorer, btnSelect As MSHTML.HTMLSelectElement
Dim btnOption As MSHTML.HTMLOptionElement, ElementCol As MSHTML.IHTMLElementCollection
Dim ElementCol1 As MSHTML.IHTMLElementCollection, i As Long, j As Long, URL As String
Application.ScreenUpdating = False
URL = "http://app.lta.gov.sg/home_application1.asp?SERIALNO=gp91rf8z34xv62es42m64lth039d7rn80l91rp9yxqxd hiwvww&source (http://app.lta.gov.sg/home_application1.asp?SERIALNO=gp91rf8z34xv62es42m64lth039d7rn80l91rp9yxqxd hiwvww&source)="
Set appIE = New InternetExplorer
With appIE
.Visible = True: .navigate URL
End With
Do While appIE.Busy Or appIE.Readystate <> Readystate_Complete
DoEvents
Loop
' Get the option values for each of the "Select" element in the webpage
'========================================================================== =================================
j = 1
Set ElementCol = appIE.Document.getElementsByTagName("Select")
For Each btnSelect In ElementCol
i = 0
Worksheets(2).Cells(1, j) = btnSelect.Name
Set ElementCol1 = btnSelect.getElementsByTagName("Option")
For Each btnOption In ElementCol1
i = i + 1
Worksheets(2).Cells(i + 1, j) = btnOption.Value
Worksheets(2).Cells(i + 1, j + 1) = btnOption.Text
Next btnOption
j = j + 2
Next btnSelect
'========================================================================== =================================
Application.ScreenUpdating = True
End Sub