Answer Posted / sonia

Set oexObj = CreateObject("Excel.Application")
Set oWb = oexObj.workbooks.open("c:\Input.xls")
Set sheet=oWb.worksheets(1)
row=sheet.usedrange.rows.count
col=sheet.usedrange.columns.count
For i=2 to row step 1
col1=0
For j=1 to col-3 step 1
colvalue = sheet.cells(i,j)
col1= col1+CInt(colvalue)
Next
col1=sheet.cells(i,4)
If CInt(col1) = CInt(sheet.cells(i,3)) Then
sheet.cells(i,5)="Pass"
Reporter.ReportEvent micPass, "Complate", "Expected Result"
&CInt(col1) &vbcrlf&" Actual Result."&vbcrlf& CInt(col1) =
CInt(sheet.cells(i,3))
else
sheet.cells(i,5)="Fail"
End If
Next
oWb.save
oexObj.quit
Set oWb=nothing
Set oexObj=nothing

Use this code it work very fine.

How do we handle run-time errors?

1041

---

Hi, i run scripts in one machine those r passed.when i run the scripts in client side those r failed.Give me such a scenario when ever u faced?

2083

---

Is QTP supports Unix. If yes, then how the test automation is done?

2188

---

How many types of recording facility are available in quicktest professional (qtp)?

1066

---

How do you configure QTP AND Test director?

1940

---

What are the methods used in UFT to handle exceptions or run-time errors?

1112

---

How may types of defects identify application or your currently working application?pls give me answer..

2011

---

How do you test DLL files using automation Tool QTP?

3238

---

Why we load add-ins in qtp?

1106

---

Hi All, How to get repeated word in string . Thanks Balaji

1358

---

How to add verification steps to tests?

9774

---

What is the use of running the scripts in Hidden-mode in UFT?

1222

---

what is test scheduleling?

2518

---

If you are testing a web application then what will you test in that application?

2042

---

Explain the concept of how quicktest professional (qtp) identifies object?

1006

---