'set WebRadioGroupname=Browser("Browsername").Page("Pagename").WebTable("Tablename").ChildItem(<RowCount><Column Count>,"WebRadioGroup",<Index>)
Set TBL=Browser("CreationTime:=0").Page("CreationTime:=0").WebTable("name:=MONTHLY COST.*", "html tag:=TABLE", "text:=PLAN NAME.*")
'rows_count=tbl.RowCount
'butCount=0
'For i=3 to rows_count
'If instr(1, LCase(Trim(TBL.GetCellData(i,1))), "senior nation", 1)=0Then
'If LCase(Trim(TBL.GetCellData(i,1)))<>"" and instr(1, LCase(Trim(TBL.GetCellData(i,1))), "nation", 1)>0 Then
'butCount=butCount+1
'End if
'else
'Exit for
'End If
'Next
row=tbl.GetRowWithCellText("Senior Nation 200")
'msgbox row & vbtab & tbl.GetCellData(row, 6)
set objWB=TBL.ChildItem(row, 6, "Image", "0")
objWB.highlight
objWB.click
Set TBL=Browser("CreationTime:=0").Page("CreationTime:=0").WebTable("name:=MONTHLY COST.*", "html tag:=TABLE", "text:=PLAN NAME.*")
'rows_count=tbl.RowCount
'butCount=0
'For i=3 to rows_count
'If instr(1, LCase(Trim(TBL.GetCellData(i,1))), "senior nation", 1)=0Then
'If LCase(Trim(TBL.GetCellData(i,1)))<>"" and instr(1, LCase(Trim(TBL.GetCellData(i,1))), "nation", 1)>0 Then
'butCount=butCount+1
'End if
'else
'Exit for
'End If
'Next
row=tbl.GetRowWithCellText("Senior Nation 200")
'msgbox row & vbtab & tbl.GetCellData(row, 6)
set objWB=TBL.ChildItem(row, 6, "Image", "0")
objWB.highlight
objWB.click
No comments:
Post a Comment