If iBCount = 1 Then
Set objPage = Browser("name:=.*").Page("index:=0")
Set objPage = Browser("name:=.*","index:=0").Page("index:=0")
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebTable"
Set oCollection = objPage.ChildObjects(oDesc)
NumberOfobjects = oCollection.Count
Reporter.ReportEvent 2, "Number of WebTables is " &NumberOfobjects , ""
For i = 0 To NumberOfobjects - 1
Reporter.ReportEvent 2, oCollection(i).getroproperty("name") ,""
Patience is like bread I say.... I ran out of that yesterday.
I appreciate you letting me know. I know it is not too late to start saving code, but I wish that I did this starting with WR and then QTP. I feel as if my memory is failing. VBScirpt looks so simple, but each time I go to do something I forget. I get so annoyed becasue I have done the samething 20 times before. For example, each time I have to work with an external Excel sheet using ADO, I don't know where to begin.
Last edited by bklabel1; 07-26-2013 at 05:39 AM.
Reason: had to add some words so it would make sense