Question

我正在尝试编写代码（在Macro Express Pro中）来读取下拉框中的所有选项，并将它们设置为这种格式的数组：

;option 1;option 2;option 3;option 4;option 5

到目前为止，我能够将其显示在MsgBox中（就像测试一样，我不希望生产中的消息框），但不会将它们附加到数组中。这是我正在使用的（来自网站）：

<select id="ctl00_cphContent_ddlWorkQueue" class="ddlbox">
    <option value="4449">option 1</option>
    <option value="4370">option 2</option>
    <option value="4371">option 3</option>
    <option value="4372">option 4</option>
    <option value="4373">option 5</option>
</select>

来自VBS外部脚本：

set OptionChooser = MyIE.Document.GetElementbyid("ctl00_cphContent_ddlWorkQueue")

For Each objOption in OptionChooser.Options
    Msgbox objOption.InnerText
Next

Answer 1

创建一个动态数组并用选项填充它，然后Join数组：

ReDim arr(OptionChooser.Options.Length - 1)
For i = 0 To OptionChooser.Options.Length - 1
  arr(i) = OptionChooser.Options(i).Text
Next
str = Join(arr, ";")

MsgBox str

从下拉列表中读取选项到数组中

1 个答案: