如何根据一个关键字在webtable中选择一个checkbox

我写了一个小的脚本去实现如何在webtable中随意选择一个checkbox

Sub WebTableSelectCheckbox (WebTblObj, ItemToLocate, ItemColumn, ChkBoxCol)
   ' Total number of rows in html_table
   TotalRows = WebTblObj.RowCount 
   For row= 3 To TotalRows
      ' Retrieve the item from the specified column
      ValueShown = WebTblObj.GetCellData(row,ItemColumn)

           If (ItemToLocate = Trim(ValueShown)) Then
         Set ChkBoxObj = WebTblObj.ChildItem(row, ChkBoxCol,"WebCheckBox", 0)
         ChkBoxObj.Set "ON"
         Exit For
      End If
   Next
End Sub

调用方式：

Set MyObj = Browser("Multiple Oper").Page("Multiple Oper").WebTable("Direct Reports")

WebTableSelectCheckbox MyObj, "323214", colEMPID, 1