qtp描述性编程解决层级新增对象选取问题

Dim unionname
With  Browser("网络视频监控管理中心").Page("网络视频监控管理中心").Frame("Main")
 Browser("网络视频监控管理中心").Page("网络视频监控管理中心").Frame("Menu").Image("Area").Click
     .Image("addbuttonhover").FireEvent "onmouseover"
  .Image("addbuttonhover").Click
 For  unionname=1to 7
  .WebEdit("AreaName").Click
  .WebEdit("AreaName").Set unionname
  .Image("savehover").Click
   Browser("网络视频监控管理中心").Page("网络视频监控管理中心").Frame("Menu").WebTable("text:="&unionname,"name:=TreeSub").image("file name:=Area.gif").Click
  .Image("addbuttonhover").FireEvent "onmouseover"
  .Image("addbuttonhover").Click
 Next
End With
delunion(1)