使用Excel VBA在Web表单中选择列表选项（更改）

Question

我正在尝试将“案件重开清单”选项更改为“是”。在这里，我的代码更改了该选项，但没有很好地触发。

示例：如果将案例重新打开更改为“是”，则我可以更改 TAT开始日期

请参见下面的图片和代码，以更好地理解我的问题

选项：否：

选项：是

VBA代码

ie.document.getElementsByName("cf_1314")(0).selectedIndex = "1"

  ie.document.getElementsByName("cf_1314")(0).FireEvent ("onchange")

html代码：

Answer 1

您是否尝试过将getElementsByTagName与选项标签一起使用？像

Set TDelements = HTMLdoc.getElementsByTagName("option")

For Each TDelement In TDelements
  If TDelement.Value = "No" Then
     TDelement.Value = "Yes"  
  End if
Next