vba code to get element from label name

[Pankil]

Hi,

I need to select option "Assigned to anyone" from below code. it looks like drop down list. HTML for it is as below

<select class="form-control ng-pristine ng-untouched ng-valid ng-not-empty" ng-model="viewOptions.assignedToMe" ng-options="opt.value as opt.label for opt in ::assignedToMeOptions" ng-change="setAssignedToMeOption(viewOptions.assignedToMe)"><option label="Assigned to me" value="boolean:true" selected="selected">Assigned to me</option><option label="Assigned to anyone" value="boolean:false">Assigned to anyone</option></select>

Thanks in advance!!!!!!!!!

 

[John_w]

Add this to your code (requires references to MS Internet Controls and HTML Object Library):

Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim selectElement As HTMLSelectElement

'After IE navigation and page has loaded
Set HTMLdoc = IE.document
Set selectElement = HTMLdoc.getElementsByTagName("SELECT")(0)  'assumes first select element
selectElement.selectedIndex = 1

 

[Pankil]

Add this to your code (requires references to MS Internet Controls and HTML Object Library):

Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim selectElement As HTMLSelectElement

'After IE navigation and page has loaded
Set HTMLdoc = IE.document
Set selectElement = HTMLdoc.getElementsByTagName("SELECT")(0)  'assumes first select element
selectElement.selectedIndex = 1

Hey John, Many thanks it works and select the desired drop down.
one more query is that it is not fireing desired event. The data which is there is not refreshing on selection. when i do manual selection, it is updating but not with the selection by below code...

 

[John_w]

Which event is it meant to fire? Use your DOM browser to see which event(s) are assigned to the select element and fire them using FireEvent or dispatchEvent

Just guessing - maybe it needs the change event. Try either:

    selectElement.FireEvent "onchange"

Or:

    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If]#If[/URL]  VBA7 Then
        Dim changeEvent As DOMEvent
    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL] 
        Dim changeEvent As Object
    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]  If

    'After page has completely loaded
    Set changeEvent = HTMLdoc.createEvent("HTMLEvents")
    changeEvent.initEvent "change", True, False
    selectElement.dispatchEvent changeEvent

 

[Pankil]

Hey John - Truely awesome man. appreciate your help. it worked!!!!!!!