How to read all the excel row values in QTP?
Set objexcel = createobject("Excel.Application")
Set objworkbook = objexcel.Workbooks.Open("Path of the excel")
Set objworksheet = objworkbook.Worksheets("sheetname")
objexcel.Visible = true
varRcount = objworksheet.UsedRange.Rows.count
varCcount = objworksheet.UsedRange.columns.count
For i = 1 to varRcount
For j = 1 to varCcount
varvalue = objworksheet.Cells(i,j).Value
If varvalue = "....." then
"Statements"
.....
....
End If
Next
Next
Set objexcel = Nothing
Set objworkbook = Nothing
Set objworksheet = Nothing
Set objworkbook = objexcel.Workbooks.Open("Path of the excel")
Set objworksheet = objworkbook.Worksheets("sheetname")
objexcel.Visible = true
varRcount = objworksheet.UsedRange.Rows.count
varCcount = objworksheet.UsedRange.columns.count
For i = 1 to varRcount
For j = 1 to varCcount
varvalue = objworksheet.Cells(i,j).Value
If varvalue = "....." then
"Statements"
.....
....
End If
Next
Next
Set objexcel = Nothing
Set objworkbook = Nothing
Set objworksheet = Nothing
Comments
Post a Comment