摘要: cellContent = oTable.Rows(iRow - 1).Cells(iCol - 1).outerText 阅读全文
posted @ 2012-07-21 19:10 dushuai 阅读(321) 评论(0) 推荐(0) 编辑
摘要: Dim oParentSet oParent = oNodeDoSet oParent = oParent.parentNodeLoop While oParent.tagName <> "TABLE" 阅读全文
posted @ 2012-07-21 17:38 dushuai 阅读(103) 评论(0) 推荐(0) 编辑
摘要: All will return the collection of object matching the name or id in such case.So if there are two objects with the name as "test" and one object with id as "test" then all would return 3 objects. 阅读全文
posted @ 2012-07-21 17:33 dushuai 阅读(48) 评论(0) 推荐(0) 编辑
摘要: iStart = 1iEnd = ...WebTable().RowCountDo While iStart < iEndiMiddle = (iStart + iEnd) \ 2value = WebTable.GetCellData(1, iMiddle)iCompare = StrComp(value, strFind)If iCompare = 0 then'Exact match has been foundMsgbox "Value found at - " & iMiddleExit DoElseIf iCompare = 1 then& 阅读全文
posted @ 2012-07-21 10:18 dushuai 阅读(148) 评论(0) 推荐(0) 编辑