VBA怎样模拟选择网页下拉框中选项

rgcsm

各位大神，我想做一个批量填写的VBA，但不知道怎样选择下拉框中的选项，网页代码如下，请不吝指教！

     <form name="c_meterTypeForm" action="" method="post">
       <input type="hidden" name="read_id" value="" />
       <input type="hidden" name="meter_id" value="8200000028034653" />
       <input type="hidden" name="read_type_code_1" value="" />
      <tr>
       <td class="td_fld_head_left" nowrap  align="left" colspan="2">
        示数类型
        <input type="button" name="btn_add" value="新增" class="btn_2k3"
         onclick="addMeterType();">
        <input id="C_meterMap_save" type="button" class="btn_2k3"
         onClick="saveC_meterType()" value="保存" />
        <input id="C_meterMap_del" type="button" class="btn_2k3"
         onClick="delC_meterType('','8200000028034653')" disabled value="删除" />
       </td>
      </tr>
      <tr class="tr_fld_v">
       <td nowrap width="100%" align="right" class="td_fld_title">
        <font color="#ff0000">*</font>示数类型
       </td>
       <td class="td_fld" >
        <span id="read_type_code_frame" align='right' style='display:table;position:relative;
width:123px;  '><input type=text id="read_type_code_list_txt" originvalue="" value=""  style='width:99%;' readOnly  elementType="droptree"><img id="read_type_code_list_downdot" style="position:absolute;right:0px;cursor:hand;height:20px;top:1px" src="/sgpmss/syscom/images/down.gif" elementType="droptree"></img>
</span>
<select id="read_type_code" name="read_type_code" attr="" style="display:none;" ><option selected value=''></option></select>
<script type="text/javascript"><!--
read_type_code_list = new DropList('read_type_code_list');
read_type_code_list.optionValue[0]=""
read_type_code_list.optionText[0]=" "
read_type_code_list.optionValue[1]="118"
read_type_code_list.optionText[1]="30分钟需量"
read_type_code_list.optionValue[2]="236"
read_type_code_list.optionText[2]="反无功反向"
read_type_code_list.optionValue[3]="233"
read_type_code_list.optionText[3]="反无功峰"
read_type_code_list.value=""
read_type_code_list.width="123px"
read_type_code_list.divwidth="123px"
read_type_code_list.divheight="200"
read_type_code_list.display();
document.attachEvent("onclick",function(){otherClickUpDot('read_type_code_list')});
//--></script>
       </td>
      </tr>
      </form>

rgcsm

比如说怎么选中“反无功峰”这个选项。自顶

解0人

Dim droplist
Set droplist = internetExplorer.document.getElementById("read_type_code_list")
'internetExplorer=internetExplorer.Application
droplist.Options.all(3).Selected = True

rgcsm

解0人 发表于 2017-3-9 09:02
Dim droplist
Set droplist = internetExplorer.document.getElementById("read_type_code_list")
'inter ...

谢谢，上班了试试！

rgcsm

解0人 发表于 2017-3-9 09:02
Dim droplist
Set droplist = internetExplorer.document.getElementById("read_type_code_list")
'inter ...

老师，不行。没有取到下拉框中的内容，在步进一步就报错了。请再帮忙看看！

解0人

rgcsm 发表于 2017-3-13 16:17
老师，不行。没有取到下拉框中的内容，在步进一步就报错了。请再帮忙看看！

droplist =nothing？？
不知道你的html結構，你先取到下拉框這個對象再說...

rgcsm

解0人 发表于 2017-3-13 16:42
droplist =nothing？？
不知道你的html結構，你先取到下拉框這個對象再說...

老师，不好意思，前期一直在忙没有及时回复。
根据我1楼的内容，能看出下拉框对象是什么吗？

rgcsm

自己顶一下！

rgcsm

请大神帮忙。

rgcsm

自己顶一下！请大师帮忙！