HTML Select Multiple Values in Option Menu

[San_K]

Hello,

This is my first post. I'm very new to HTML and have a little bit of experience with VBA. I am trying to navigate through a webpage so that I can eventually grab the table from the page.

There is a multi-select dropdown menu on the page similar to the drop down menu in the following link.
http://www.w3schools.com/tags/tryit....elect_multiple

I need to be able to select multiple values in the drop-down menus and then submit the search. There are multiple drop-down menus to select from. One drop menu refers to "State" and the other to "Chain". Currently, I am able to select one drop-down menu item and submit the search which can be seen in the code below.

Help is greatly appreciated! Thanks!

[COLOR=#333333]Sub Navigate_Webpage()[/COLOR]
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">
Const cURL = "website"
Const cUsername = "username"
Const cPassword = "password"
Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim UserNameInputBox As HTMLInputElement
Dim PasswordInputBox As HTMLInputElement
        
    Set IE = New InternetExplorer
    
        IE.Visible = True
        IE.Navigate cURL
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    Set doc = IE.Document
    
    Set LoginForm = doc.forms(0)
  
    Set UserNameInputBox = LoginForm.elements("login")
        UserNameInputBox.Value = cUsername
    
    Set PasswordInputBox = LoginForm.elements("password")
        PasswordInputBox.Value = cPassword
    
    IE.Document.forms(0).submit
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
        
    
    IE.Navigate "Navigate to page on website once logged in"
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    Set doc = IE.Document
    
        With doc
               With .getElementById("State")
                    .Value = "OR"
                    .Focus
                    .FireEvent "onchange"
                End With
               
                With .getElementById("Chain")
                    .Value = "LV"
                    .Focus
                    .FireEvent "onchange"
                End With
              
                Set tags = IE.Document.getElementsByTagName("Input")
                For Each tagx In tags
                    If tagx.Value = "Search" Then
                        tagx.Click
                        Exit For
                    End If
                Next
        End With </code>[COLOR=#333333]End Sub[/COLOR]

The HTML for the "State" ID can be seen below. It allows the user to manually input multiple values by using ctrl+click. Please right-click and use inspect element on the HTML to view the HTML code. I can't seem to figure out how to post the html code into my post.

<select name="State" id="State" size="7" multiple="true"> <option value="">-- All --</option> <option value="AL">Alabama</option> <option value="AK">Alaska</option> <option value="AB">Alberta</option> <option value="AZ">Arizona</option> <option value="AR">Arkansas</option> <option value="BC">British Columbia</option> </select>

Thank you for your time!

 

[John_w]

Try this (it selects the 2nd and 5th options).

    Dim selectElement As HTMLSelectElement
    Set selectElement = doc.getElementById("State")
    selectElement.Options(1).Selected = True
    selectElement.Options(4).Selected = True

If you want to select the options by their visible text or underlying Value attribute then you have to loop through the Options array looking for the required Options.Text or Options.Value and set the Selected property for the found Options index as above.

 

[San_K]

Thank you for the help John!

Here's what my final code turned out to be.

Sub Navigate_Webpage()

Const cURL = "website"
Const cUsername = "username"
Const cPassword = "password"
Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim UserNameInputBox As HTMLInputElement
Dim PasswordInputBox As HTMLInputElement
Dim selectelementstate As HTMLSelectElement
        
    Set IE = New InternetExplorer
    
        IE.Visible = True
        IE.Navigate cURL
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    Set doc = IE.Document
    
    Set LoginForm = doc.forms(0)
  
    Set UserNameInputBox = LoginForm.elements("login")
        UserNameInputBox.Value = cUsername
    
    Set PasswordInputBox = LoginForm.elements("password")
        PasswordInputBox.Value = cPassword
    
    IE.Document.forms(0).submit
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
        
    
    IE.Navigate "Navigate to page on website once logged in"
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    Set doc = IE.Document
    Set selectelementstate = doc.getElementById("State")
    
   n = 0
   For Each selectelement In selectelementstate
        If selectelementstate.Options(n).Value = "CA" Or _
            selectelementstate.Options(n).Value = "OR" Or _
            selectelementstate.Options(n).Value = "WA" Or _
            selectelementstate.Options(n).Value = "NV" Or _
            selectelementstate.Options(n).Value = "WY" Or _
            selectelementstate.Options(n).Value = "MT" Or _
            selectelementstate.Options(n).Value = "AZ" Or _
            selectelementstate.Options(n).Value = "ID" Or _
            selectelementstate.Options(n).Value = "CO" Or _
            selectelementstate.Options(n).Value = "NM" Or _
            selectelementstate.Options(n).Value = "UT" Then
            
            selectelementstate.Options(n).Selected = True
        
        End If
    n = n + 1
   Next
    
                For Each tagx In tags
                    If tagx.Value = "Search" Then
                        tagx.Click
                        Exit For
                    End If
                Next
        
End Sub