作者littleyan93 (初来)
看板Visual_Basic
标题[VBA ] 请教如何执行网页地址栏位乡镇区下拉栏位
时间Sun Jul 12 10:54:41 2020
县市：
<select name="WATER_ADDR_addx" class="form-control" id="WATER_ADDR_addx"
style="width: 7em;">
<option value="" selected="">请选择</option>
<option value="B">基隆市</option>
<option value="C">新北市</option>
----部分忽略
</select>
乡镇(区)：
<select name="WATER_ADDR_addx_COUN" class="form-control"
id="WATER_ADDR_addx_COUN" style="width: 7em;" onchange="javascript:if
(this.value=='') {document.all['WATER_ADDR'].style.display = 'none'} else
{document.all['WATER_ADDR'].style.display = ''};">
<option value="000">请选择</option>
</select>
----部分忽略
<input name="WATER_ADDR" id="WATER_ADDR" style="width: 50%;" type="text"
placeholder="请输入用水地址" value="" data-val-required="用水地址 栏位是必要项
。" data-val="true">
--------------------------------分隔线------------------
不知该如何让 乡镇(区)栏位(WATER_ADDR_addx_COUN)选择指定执行(ex.金山区)
目前我可以执行部分
部分忽略
Set a = .document.all("WATER_ADDR_addx")
For i = 0 To a.Options.Length - 1
If a.Options(i).innerText = "新北市" Then
a.Options(i).Selected = "true"
End If
Next
.document.all("WATER_ADDR").Value = ActiveSheet.Cells(number, 3)
--------------------------------------------------------
先感谢留言的各位
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.236.5.89 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1594522483.A.915.html
1F：→ lalacos123: 你搜一下下拉式选单就有很多例子了 我上星期才爬的 大07/13 15:11
2F：→ lalacos123: 多都卡在fireevent onchange没做07/13 15:11
3F：→ littleyan93: 我爬文有加.document.all("WATER_ADDR_addx_COUN").F 07/13 19:08
4F：→ littleyan93: ireEvent ("onchange") 07/13 19:09
5F：→ littleyan93: 在想说哪里用错了方法07/13 19:10
6F：→ littleyan93: 没有反应07/13 19:10
※ 编辑: littleyan93 (36.236.5.89 台湾), 07/13/2020 19:11:47
8F：→ lalacos123: 你爬这篇试试 我也是都用focus,selectindex,fireevent 07/14 12:00
9F：→ lalacos123: 还有是getelementbyid直接指名ID ,再不行等高手了 07/14 12:00
10F：→ lalacos123: 我也才摸两个礼拜 07/14 12:00