|
Dim name
Dim RowCount
For RowCount=2 to 50 '假设每页有50行,第一行一般为title,那从第二行开始循环
name=Browser("browser").Page("XXX").Frame("XXXXXX").WebTable("企业代码").GetCellData(RowCount,2) '这里我是根据表格的第二列去判断我要删除的行,因此,返回每一行第2列的值,并存入name这个变量
If name="我要删除的那条记录的企业代码" then '判断name是否是我想要删除的那行
Browser("browser").Page("xxx").Frame("xxxxxx").Link("index:="&(RowCount-2)).Click '如果是则去点对应的删除按钮
Exit for
end if
Next
需要说明的是Link("index:="&(RowCount-2)).Click 这句
索引( index ):指示该对象在应用程序代码中相对于其他描述都相同的其他对象的显示顺序。是从0开始的,而表格的行号是从1开始的,而且表格的第一行一般被title占了,所有这里行号跟'删除'按纽index的值刚好差2. |
|