Выберите значение из раскрывающегося списка HTML

Question

Моя цель - выбрать / вставить значение из ячейки "X" (i) в раскрывающийся элемент в Интернете.

С моим текущим кодом мне удается вставить значение в "поиск"панель раскрывающегося элемента> щелкните значок раскрывающегося списка, который открывает раскрывающийся список> Просмотреть значение с дочерними элементами, связанное со значением

, проблема в том, что изменение не происходит после сохранения, поскольку я не могунайти способ имитировать левый клик на «найденное» значение внутри выпадающего списка.Если это помогает, у пользователя есть два способа применить изменения при выборе значения для этого элемента:

1. вставить значение в строку поиска elemtns> щелкнуть значок в раскрывающемся списке и выбрать значениекак только он появляется (загрузка занимает несколько секунд)
2. щелкните раскрывающийся значок> щелкните значок открытого значения "дочерние элементы"> выберите левой кнопкой мыши нужное значение.

Примечание. Нажатие «enter» не будет работать.он «сфокусирует» элемент, но если я попытаюсь его сохранить, изменения не будут применены.

Мой код VBA [при попытке изменить значение с APAC на EMEA]:

 Sub User_Setup()
'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
'----------------------------------here I define elemnts for the loop
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("Fields")
Dim LastRow As Long
Dim i As Long
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
Dim values() As String
Dim b As Long
Dim frm As Object
Dim dt As Object
'---------------------------------------------here I define Internet Explorer
Dim IE As Object
Dim Doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
'--------------------------------------------- here I define range for the loop
For i = 2 To LastRow
' ---------------------------------------------here I ask the Internet explorer to be visable & Navigate to value in cell "H"i
IE.Visible = True
IE.navigate sht.Range("A" & i).Value

' ---------------------------------------------here I ask the Internet explorer to wait few seconds
Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop
Set Doc = IE.document
'--------------------------------- Here is my issue with the dropdown
Doc.getElementById("tab7").Click ' clicks the tab where the dropdown exists
Doc.getElementById("ResourceWorkgroup").Value = sht.Range("X" & i).Value ' This is the value needs be choosen in the dropdown
Doc.getElementById("ResourceWorkgroup").FireEvent "onfocus" ' this event should make the value just inserted be highlited
'---- 
Doc.getElementById("_IB_imgResourceWorkgroup").Click ' this is the action that mimic mouse click on the "open drop down" icon
  Doc.getElementById("_IB_imgResourceWorkgroup").FireEvent "onfocus" 'not sure if this line is  even helpful
'----
'NOTE:I manage to enter the value in the search field, and the click the dropdown list icon,
'(mimic the mouse click on the open dropdown list icon) without really choosing the value.

 Application.Wait Now + TimeValue("00:00:10")
 Doc.getElementById("Master_IdBtnSave").Click ' click on save button
 Doc.getElementById("Master_IdBtnSave").FireEvent "*******" 'trigger the event of saving (not sure if this neccery aswell)

Next i

End Sub

Ниже приведен HTML-код из Интернета:

<div id="Master_cphBody_divWorkgroup">
                <label class="txt" id="Master_cphBody_lblWorkgroup" for="Master_cphBody_ResourceWorkgroup"><span></span>Workgroup:</label>
                
<script src="/JS/InputBoxWithWkgResCusConDropdownTree.js" type="text/javascript"></script>
<script src="../../JS/inJsValidate.js" type="text/javascript"></script>      
       
<table class="offsetLeft" style="margin: 2px;" cellspacing="0" cellpadding="0">
    <tbody><tr>
        <td style="border: 1px solid rgb(153, 153, 153); border-image: none; padding-left: 1px; vertical-align: middle; white-space: nowrap;">
            <input name="ResourceWorkgroup" title="APAC" id="ResourceWorkgroup" style="margin: 0px; border: 0px currentColor; border-image: none; width: 380px;" onkeyup="_IBDD_InputKeyDown(this, null, event)" onfocus="this.focus();this.select();" type="text" value="APAC" controltype="TWDropDown" showclientportalparticipant="" entity="" ctype="IB" searchtt="Press ENTER or click the drop-down list and select a value." dirty="0" requiresla="0" requesttype="" additionalid="" allresources="false" allrequests="false" selectedbydblclick="0" multiselid="" multiselect="0" adjusty="0" adjustx="0" disablesearchcriteria="0" includesystem="false" ignoreaccesscheck="False" portfoliofilter="" surveyfilter="" requestfilter="" productfilter="" invoicefilter="" competitorfilter="" campaignfilter="" reportfilter="" oppfilter="" taskfilter="" prjfilter="" engfilter="" cusfilter="" wgpfilter="-2032307166" cfilter="" rfilter="" inputlength="50" smodel="3" referenceposition="" ddstyle="" ddheight="350" ddwidth="400" cptype="res" cpvalue="APAC" cpid="6c9ef9d1-daef-11d2-882b-006097b596a6" oValue="EMEA">
            <span id="_IB_iconResourceWorkgroup">
                <img id="_IB_imgResourceWorkgroup" style="padding-right: 2px; margin-left: -1px; cursor: pointer;" onclick="_IBDD_InputKeyDown(document.getElementById('ResourceWorkgroup'), '1', event)" src="../../Images/UI/ddSelect1.gif" ctype="IB" icon1="../../Images/UI/ddSelect1.gif">
            </span>
            <br>
        <div id="_CPDDWRCC_div" style="width: 400px; height: 350px; margin-top: 0px; display: block; position: absolute; z-index: 1010;" cpheight="350" cpwidth="400">
    <iframe id="_CPDDWRCC_ifr" src="../../UserControl/DropDownWkgResCusConTreeView/ifrDropDownWkgResCusConTreeView.aspx?rid=DA69AADD-D0A8-4551-A1E2-5FE83E99F914&amp;ResourceId=DA69AADD-D0A8-4551-A1E2-5FE83E99F914&amp;sno=0FA81AEE-A8AA-44B9-AE87-EF68727E874E&amp;SessionId=0FA81AEE-A8AA-44B9-AE87-EF68727E874E&amp;ui=W&amp;dialog=&amp;RDFilter=0&amp;model=3&amp;key=EMEA&amp;rfilter=&amp;cfilter=&amp;wgpfilter=-2032307166&amp;cusfilter=&amp;engfilter=&amp;prjfilter=&amp;taskfilter=&amp;oppfilter=&amp;campaignfilter=&amp;competitorfilter=&amp;invoicefilter=&amp;productfilter=&amp;requestfilter=&amp;surveyfilter=&amp;portfoliofilter=&amp;ignoreaccesscheck=False&amp;reportfilter=&amp;includesystem=false&amp;width=400&amp;height=350&amp;multiSelect=0&amp;multiselid=&amp;selectedbydblclick=0&amp;allrequests=false&amp;allresources=false&amp;additionalid=6c9ef9ce-daef-11d2-882b-006097b596a6&amp;requesttype=6c9ef9ce-daef-11d2-882b-006097b596a6&amp;entity=&amp;showclientportalparticipant=" frameborder="0" scrolling="no" style="border: 1px solid rgb(153, 153, 153); border-image: none; width: 100%; height: 100%;"></iframe>
</div></td>
    </tr>
</tbody></table>


            </div>

РЕДАКТИРОВАТЬ: вот HTML-код при нажатии на выпадающий список:

<div id="ddwccCPTreeBorder" style="width: 400px; height: 350px; -ms-overflow-x: scroll; -ms-overflow-y: scroll; background-color: rgb(255, 255, 255);" onclick="_CPT_onCPTreeviewClick('ddwcc', event);" ondblclick="_CPT_onCPTreeviewDblClick('ddwcc', event);" ondragstart="_CPT_OnDragStart('ddwcc', event);">
    <div id="ddwccCPTree" topnode="1" blankpageurl="about:blank" dloadurl="about:blank"><div id="ddwcc6C9EF9CE_DAEF_11D2_882B_006097B596A6" style="white-space: nowrap;" cptype="gwgp" move="0" l="0" order="0"><img width="9" height="9" style="padding: 3px 1px 5px; cursor: default;" src="../../Images/Treeview/minus.gif" board="0" ct="pm"><img align="absmiddle" src="../../Images/Treeview/tvFolder.gif" border="0" hspace="3" ct="" eurl=""><span title="Services" style="cursor: pointer;"> Services</span></div><div id="sddwcc6C9EF9CE_DAEF_11D2_882B_006097B596A6" style="margin-top: 0px; margin-bottom: 0px; margin-left: 15px; display: block;" l="-1" epd="1"><div id="ddwcc5F0ED4A0_5FC5_4239_9876_5E9D9B468EC7" style="white-space: nowrap;" cptype="wgp" move="0" l="1" order="0"><img width="9" height="9" style="padding: 3px 1px 5px; cursor: default;" src="../../Images/Treeview/minus.gif" board="0" ct="pm"><img align="absmiddle" src="../../Images/Treeview/tvFolder.gif" border="0" hspace="3" ct="" eurl=""><span title="EMEA" style="cursor: pointer;">EMEA</span></div>

Это длинный вопрос, и я действительно ценю, если кто-нибудь сможет посоветовать, как действовать.Если вам нужна дополнительная информация, пожалуйста, дайте мне знать.

С уважением, Слава