从下拉菜单中选择选项不起作用

时间:2019-10-13 14:11:33

标签: excel vba

这是我的第一篇文章,对不起。

我正在编写一个VBA宏,该宏会在填写Web表单之前浏览网站。

在导航期间,脚本需要从下拉菜单中选择一个选项。

我当前正在使用以下代码,以找到正确的下拉菜单。

Dim Select As Object

Set oSelect = objIE.document.getElementsByClassName("col-sm-6")

For Each op In oSelect

If op.getAttribute("name") = "ctl00$AlcsContentPlaceHolder$ddlAnchorsType"

Then

If op.Value = "OPSA" Then

op.Focus    

op.Selected = True    

End If    

Exit For    

End If    

Next op    

我要根据选项值从下拉菜单中进行选择。

我尝试了包括Internet在内的许多Internet组合,似乎没有任何效果。
 请帮忙。

HTML代码:

   <select name="ctl00$AlcsContentPlaceHolder$ddlAnchorsType" id="AlcsContentPlaceHolder_ddlAnchorsType" class="comboBox form-field select2-hidden-accessible" style="width:100%;" tabindex="-1" aria-hidden="true">

    <option selected="selected" value="0">-- Select Anchor Type --</option>    

    <option value="OPSA">Ops anchor </option>  

    <option value="LA">Letters_Anchor</option>  

    <option value="RA">Reimbursement_Anchor</option>  

    <option value="OS">On-site</option>  

    <option value="BD">BD</option>  

    <option value="MIG">Migration</option>  

    <option value="CR">CR</option>  

    <option value="Reg">Regulatory</option>

    <option value="RegMgmt">Regulatory-Contract Managment</option>

    <option value="RegCmp">Regulatory-Central Compliance</option>

    <option value="FinIns">Finance-Insurance</option>

    <option value="FinAudit">Finance-Audit</option>

    <option value="FinAP">Finance-AP</option>

    <option value="ARACC">Finance-ARAccounts</option>

    <option value="BILL">Finance-Billing</option>

</select>

0 个答案:

没有答案
相关问题