VBA Excel VBA Set webpage drop down selection

[sirjaymz]

I have looked and tried so many different methods to just perform a simple selection.

Looking to set the dropdown to 2021. It defaults to 2022.

Sub Get_Info
       Dim sBrowserHwnd
       Dim sURL As String
       Dim sURLLoc As String
       Dim Element As Object ' HTMLButtonElement
       Dim btnInput As Object ' MSHTML.HTMLInputElement

       sURL = "https://public.hcad.org/records/Real.asp?search=acct"

       Set Browser = CreateObject("InternetExplorer.Application")
       Browser.Visible = True 
       Browser.navigate sURL                                          ' navigate to page
                WaitForBrowser Browser, 3  
       Set HTMLDoc = Browser.document
       Set varSearchYear = HTMLDoc.getElementsByName("TaxYear")
            For Each elem In varSearchYear.getElementsByTagName("option")
                If elem.Value = "2021" Then
                    elem.Selected = True
                    Exit For
                End If
            
            Next elem

' Tried this one as well
          'HTMLDoc.getElementsByTagName("select").Value = "2021"

 

[John_w]

    HTMLdoc.getElementsByName("TaxYear")(0).Value = "2022"

 

[sirjaymz]

Tried this as well.

            Set HTMLDoc = Browser.document
                        
            Set varSearchYear = HTMLDoc.getElementsByName("TaxYear")
             
            'loop through all 'searchSearchYear' elements and find the one with a specific value
            For Each dropOption In varSearchYear.getElementsByTagName("option")
                If dropOption.innerText = "2021" Then
                    varSearchYear.Value = dropOption.Value
                    Exit For
                End If
            
            Next dropOption

 

[sirjaymz]

ok.. Tried this too...
Really getting frustrated....uggg

            Set HTMLDoc = Browser.document
                        
            Set varSearchYear = HTMLDoc.getElementsByName("TaxYear")
             
            'loop through all 'searchSearchYear' elements and find the one with a specific value
            For Each dropOption In varSearchYear.getElementsByTagName("select")(0).getElementsByTagName("option")
                If dropOption.innerText = "2021" Then
                    dropOption.Selected = True
                    'varSearchYear.Value = dropOption.Value
                    Exit For
                End If
            
            Next dropOption

 

[sirjaymz]

    HTMLdoc.getElementsByName("TaxYear")(0).Value = "2022"

Thanks for the response.. Not sure I understood exactly, but I got the Run=Time error '13: Type mismatch now...

            Set HTMLDoc = Browser.document
            
            Set varSearchYear = HTMLDoc.getElementsByName("TaxYear")(0).Value = "2022"
            For Each elem In varSearchYear.getElementsByTagName("option")
                If elem.Value = "2021" Then
                    elem.Selected = True
                    Exit For
                End If

 

[sirjaymz]

Got it... yay..

            Set HTMLDoc = Browser.document
            
            Set varSearchYear = HTMLDoc.getElementsByName("TaxYear")(0)
            For Each elem In varSearchYear.getElementsByTagName("option")
                If elem.Value = "2021" Then
                    elem.Selected = True
                    Exit For
                End If
            
            Next elem

 

[John_w]

You shouldn't need all that; my line after your Set HTMLDoc line should suffice.