我无法在下拉列表 Web VBA 中选择多个项目

Question

我正在尝试从 Intranet 页面填写表格。 我设法从我想选择但不是同时选择的下拉列表中突出显示元素。我想在列表中选择三个 这是我的代码：

Sub GetLTRTable()

    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.application")

    ie.Visible = True
    ie.navigate "myurl"

    Do Until ie.ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop


    Dim Fields As Object

    Set Fields = ie.Document.all.Item("ADFields")
        Fields.Checked = True

    Dim organization As Object

    Set organization = ie.Document.all.Item("Org")
        organization.selectedindex = 0
    Dim Modality As Object
        Set Modality = ie.Document.getElementsByName("Modality")(0)
        With Modality.Value = "'GDXE'"
             Modality.Value = "'ABUS'"
             Modality.Value = "'A&S'"
        End With

    ie.Document.getElementsByName("Action").Item(1).Click

这是源代码（注意，我只是摘录，因为有很多模式）：

<select name="Modality" multiple="" size="4"><option value="'ALL'" selected="">ALL</option>
<option value="'A&amp;S'">A&amp;S</option>
<option value="'ABUS'">ABUS</option>
<option value="'ACS'">ACS</option>
<option value="'ANES'">ANES</option>
</select>

感谢您的帮助

科伦丁

Answer 1

如果要按值使用，请使用属性 = 值 css 选择器

With ie.document
    .querySelector("[value='ABUS']").Selected = True
    .querySelector("[value='GDXE']").Selected = True
End With

这应该证明是一种快速的选择器方法。

另外，使用适当的页面等待：

While ie.Busy Or ie.readyState < 4: DoEvents: Wend

Answer 2

在这种情况下，您不需要更改Modality 的值，而是将选项设置为“已选择”：

Modality.getElementsByTagname("option").item(0).selected = "selected"