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

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester