UFT Web应用多选列表框多选自动化求助（报"object required"错误）

错误原因分析 #

• 你用split(GetROProperty("all items"), ",")得到的是字符串数组，数组元素只是选项文本，不是WebList的选项对象，所以调用.Selected属性会触发"object required"错误。
• 要获取已选中的选项，应该用all selected items属性，而非all items。

修正代码：获取已选中的选项 #

如果是要获取当前多选列表中已选中的选项并提示，代码可以改成这样：

Dim selectedItems, arraySelected, i
' 获取所有已选中的选项，默认用逗号分隔
selectedItems = Browser("").Page("").WebList("").GetROProperty("all selected items")
If selectedItems <> "" Then
    arraySelected = Split(selectedItems, ",")
    For i = 0 To UBound(arraySelected)
        MsgBox "已选中：" & arraySelected(i)
    Next
Else
    MsgBox "没有选中任何选项"
End If

自动化选中多个选项并验证 #

如果是要自动选中多个选项（比如从预设列表里选），再验证选中结果，代码如下：

Dim targetItems, i
' 定义要选中的目标选项数组
targetItems = Array("选项1", "选项3", "选项5")
Set webList = Browser("").Page("").WebList("")

' 逐个选中选项（需确保控件允许多选）
For i = 0 To UBound(targetItems)
    webList.Select targetItems(i)
Next

' 验证选中结果
Dim selectedItems, arraySelected
selectedItems = webList.GetROProperty("all selected items")
arraySelected = Split(selectedItems, ",")
MsgBox "最终选中的选项：" & Join(arraySelected, "; ")

额外注意事项 #

• 确保WebList控件支持多选：可以用webList.GetROProperty("multiple")验证，返回值应为true。
• 如果选项文本本身包含逗号，不要用字符串拆分，直接遍历每个选项的选中状态：

Dim webList, itemCount, i
Set webList = Browser("").Page("").WebList("")
itemCount = webList.GetROProperty("items count")
For i = 1 To itemCount
    If webList.GetROProperty("selected", i) = True Then
        MsgBox "已选中：" & webList.GetROProperty("text", i)
    End If
Next

内容的提问来源于stack exchange，提问作者babavyna