Fetching values from a web table

[qapandit]

From attached web table I need to verify all states name are there. I am planing to fetch all states' names and compare with data stored in Excel

Additional: States name are in order
Checkboxes are only available for selected states in licensed column.

Please help.

[basanth27]

Would you post the code you have tried so far?

[kgovadav]

Please try below code to fetch values from webtable:

Code:

Dim a
iRowCount = Browser("Browser").Page("Page").WebTable("WebTable").RowCount
ReDim a(iRowCount - 1)
For iRow = 2 to iRowCount
    a(iRow-2) = Browser("Browser").Page("Page").WebTable("WebTable").GetCellData(iRow,1)
Next

Values will be in array a.

[poojaarora014]

Hi,

Thanks for your reply, I understood your way to capture the attribute values.
but issue is with selecting the attribute values, I am still not able to select the values from the web element dropdown.

Please suggest me some solution.

Thanks,
Pooja

---

Hi Basanth,

My code with webtable is :-

Code:

Set rowNum=Browser().Page().Webtable().GetRowWithCellText(ColumnNameAttribute)

Browser().Page().Webtable(properties,"rows:=rowNum","cols:=2").Click

Then I used SendKeys methed and Set, none of them work.
I tried with setting the innertext directly too as:

Code:

AttributeObject.Object.innertext="Value"

Even I tried with SetROProperty method too.

Please suggest me some solution.

Thanks,
Pooja

[kgovadav]

I think you are trying to select check boxes in the webtable by the row and column numbers. Please try below code:

Code:

Browser("Browser").Page("Page").WebTable("Table").ChildItem(Row, Col, "WebCheckBox", 0).Click

.

This will click on the webcheckbox in a webtable cell.
If this is not your requirement, please give me steps on what you are trying to code.

[poojaarora014]

Hi,

Actually I want to select a value from the dropdown, which is a webElement.

Above mentioned code was the one of ways which I used for setting the webelement value, but it dint work.

Can you please see my 1st comment it will show you all the ways which I tried for resolving this issue.

Thanks,
Pooja

[nistalaramesh]

Try this Below code, and confirm whether it worked or not?

If Web List Works Use the Below Code.
Otherwise Create a Description Object (Ex: oDesc) and use the same in place of "Weblist"

Code:

Set temptable = Browser("Browser").Page("page").WebTable("class:=X", "html tag:=TABLE")  
For r = 2 to temptable.RowCount
    For c = 2 to temptable.ColumnCount(r)      
             Set Col1 = Browser("Browser").Page("Page").WebTable("class:=griddata", "html tag:=TABLE").ChildItem(r,c,"WebList", 0)
                  Col1.Select "XXX"  or DataTable.Value("WarrAMC", DtlocalSheet)
        Next
Next

[nistalaramesh]

Try this Below code, and confirm whether it worked or not?

If Web List Works Use the Below Code.
Otherwise Create a Description Object (Ex: oDesc) and use the same in place of "Weblist"

Code:

Code:

Set temptable = Browser("Browser").Page("page").WebTable("class:=X", "html tag:=TABLE")  
For r = 2 to temptable.RowCount
    For c = 2 to temptable.ColumnCount(r)      
             Set Col1 = Browser("Browser").Page("Page").WebTable("class:=X", "html tag:=TABLE").ChildItem(r,c,"WebList", 0)
                  Col1.Select "XXX"  or DataTable.Value("xxxx", DtlocalSheet)
        Next
Next