|
主要通过描述性编程思想来实现!
首先获取到这个WebTable对象 (通过"name"、"htmi id"、或其他的属性都可以)
Set tbObj = Browser("").Page("").WebTable("")
然后将Table下的html获取到
tbHtml = tbObj.Object.innerHTML 或者 tbObj.Object.innerText
IsSearh = False
Dim SomeData ' 这个是你需要对比的数据
Do
If Instr(1, tbHtml, srhString) > 0 Then 'srhString为你需要查询的字符
SomeData = SomeString ' 从页面中获取
IsSearh = True
Exit Do
else
'进入下一页
If "page is the last page " Then
Exit Do
else
Click '下一页'
End If
End If
Loop
' 如果找到了, 可以将SomeData 与DB的数据进行比较
If SomeData = GetDBData Then
End If
[ 本帖最后由 dftx511619 于 2009-12-16 11:36 编辑 ] |
|