VBA selecting value from drop down box

[PGD15]

Hi,


I'm trying to use VBA to log me into a secure webpage, then navigate to a webpage where I need to select a value from a drop down box before searching the database.


I cannot get the last part where it selects the value in the drop down box to work, I have used the below code.


The drop down box Name is = District, text value is "South" and combo value for South is A in HTML code. Can someone please help (read a couple of other posts but didn't understand them).

        Sub database()


    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
    
    'add worksheet
    Sheets.Add After:=ActiveSheet


    
    'destination
     Set destsheet = ActiveSheet
    'use internet explorer
     Set IE = CreateObject("InternetExplorer.application")
    ' with internet open, make this visable and go to webpage x, enter username 
    and passwork
    With IE
        .Visible = True
        .Navigate ("URL")
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
    '.Document.getElementsbyname("User name").Focus
    .Document.getElementsByName("username")(0).Value = "username"
    .Document.getElementsByName("password")(0).Value = "Pword"
    While .Busy Or .ReadyState <> 4: DoEvents: Wend
    Set objCollection = IE.Document.getElementsByTagName("input")
    'log in (submit)
    i = 0
    While i < objCollection.Length
               If objCollection(i).Type = "submit" And _
               objCollection(i).Name = "" Then
                 ' "Search" button is found
                Set objElement = objCollection(i)
                
        End If
        i = i + 1
    Wend
    'upon logging in naviage to webpage...
    objElement.Click
    .Navigate ("URL 2")
   
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        Debug.Print .LocationURL
    End With


    With IE
    IE.doc.getElementsByName("district").Item(A).Selected = True
 
    End With
    End Sub

 

[PGD15]

got it to work! don't need a reply, encase anyone has a further query similar to this its:

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">

[/FONT][/COLOR]</code>ie.[COLOR=#303336][FONT=inherit]document[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]querySelector[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]"Select[name="Name"] option[value="ObjectName"]"[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Selected [/FONT][/COLOR][COLOR=#303336][FONT=inherit]=[/FONT][/COLOR][COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#7D2727][FONT=inherit]True[/FONT][/COLOR]