标题: 关于用set 定义一下对象 [打印本页] 作者: 今天有雾 时间: 2008-1-29 14:28 标题: 关于用set 定义一下对象 我做了下面一段脚本
Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
set obj=Browser(xxx).Page(xxx)
Do While obj.Link("text:=Next").Exist
For i=1 to objtable.Rowcount-1
If "Demo"=Trim(objtable.GetCellData(i+1,1)) Then
msgbox "This is test"
Exit Do
End if
Next
obj.Link("text:=Next").Click
Loop
我发现我运行的时候，进行第二次翻页的时候，会提示一个"Unspecified error"，报错指向For i=1 to objtable.Rowcount-1
后来我去除set对象的方法后，直接写Browser(xxx).Page(xxx).WebTable(xxx).Rowcount-1，就能完整运行了，请问有谁知道我的set是不是有什么问题作者: 今天有雾 时间: 2008-1-30 12:04
咋过了一天还是没有人理我啦，自已顶一下吧作者: 今天有雾 时间: 2008-2-1 10:06
有没有人碰到过这个问题呀作者: 冰河 时间: 2008-2-2 09:54
Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
set obj=Browser(xxx).Page(xxx)
Do While obj.Link("text:=Next").Exist
----
Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
----
For i=1 to objtable.Rowcount-1
If "Demo"=Trim(objtable.GetCellData(i+1,1)) Then
msgbox "This is test"
Exit Do
End if
Next
obj.Link("text:=Next").Click
Loop
++++++++++++++++++++++++++
修改后的程序如上，试试看~~
就是在For语句上方重新set下对象看看
