set n = browser("浏览器").Page("页面").Frame("框架").WebTable("表格").ChildItem(i,j,"WebElement",0) '指定一个对象作者: hsjzfling 时间: 2008-2-19 16:32
看来看去就觉得这个webtable比较古怪...
用下面这段代码看看,发现每行的列数都是1...
row= browser("浏览器").Page("页面").WebTable("表格").RowCount
msgbox row
For i=1 to row
msgbox browser("浏览器").Page("页面").WebTable("表格").ColumnCount(row)
Next
执行下面这段代码,还是能输出每一列的WebElement的文本
For i=1 to 1
m= browser("浏览器").Page("页面").WebTable("表格").ChildItemCount (i,1,"WebElement")
If m<>0 Then
set n = browser("浏览器").Page("页面").WebTable("表格").ChildItem(i,1,"WebElement",1)
x = n.GetROProperty("outertext") '获取对象值
msgbox "i="&i&" j="&j&" m="&m&chr(10)& " x="&x &chr(13)&Err.Description
End If
Err.Clear
Next