Answer / saravanaraja

Here A = First Input; B= second Input ; C= Expected Result

D= Actual Result; E= Status

Set ex=createobject("Excel.Application")
Set a=ex.workbooks.open("C:\Documents and
Settings\Administrator\Desktop\cms_code.xls")
Set b=a.worksheets("sheet2")

For i=1 to 13

f=b.cells(i,"A").Value
g=b.cells(i,"B").Value
h=f+g
b.cells(i,"D").Value=h

If b.cells(i,"C").Value= b.cells(i,"D").Value Then
b.cells(i,"E").Value ="Pass"
Else
b.cells(i,"E").Value ="Fail"
End If

Next

a.save
a.close

Answer / 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.

Answer / nath .t

this example add the first two columns(Example Num1 and
Num2), added value stored in Act res column and take the
Exp res value, compare the two values and put result in
result column as pass or fail.

before execution:
example: Input.Xls
Num1 Num2 Exp res Act res Result
10 30 40 - -
50 40 90 - -
- - - - -
- - - - -
- - - - -

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
sheet.cells(i,4)=col1
If cint(col1) = cint(sheet.cells(i, 3)) Then
sheet.cells(i, 5) = "Pass"
else
sheet.cells(i, 5) = "Fail"
End If
Next
oWb.save
oExObj.quit
Set oWb = nothing
Set oExObj = nothing

after execution:Input.Xls

Num1 Num2 Exp res Act res Result
10 30 40 40 Pass
50 40 100 90 Fail
- - - - -
- - - - -
- - - - -

Kavitha can modify above code as per criteria this is very
helpful for ur scenario.

Answer / kavi

Hi Nath,

its really nice.

thanks a lot.

kavi..

Answer / pradeep

DataTable.importSheet"C:\Test.xls"
DataTable.getsheet"Practice"
rowCount=DataTable.getSheet"Practice".Getrowcount
set xls=CreatObject("Excel.application")
set Xbook=xls.Wbook.open("C:\Test.xls")
set Sheet=Xbook.OpenSheet("Practice")
For i=0 to rowCount
'Assigen the values to local variables.
Num1=Trim(cint(DataTable("Input1")))
Num2=Trim(Cint(DataTabel(Input2")))
expNumber=Trim(Cint(DataTable("expResult")


set these values into corresponding edit boxes
and click the button ok
Retrive value form the result box by it property value
called text using GetROProperty method.
Comparison done by following and store into variable called
actualResult
if(expNumber==actualResult)
sheet.cell(i,3)="Pass"
Else
Sheet.cell(i,3)="Failed"


Next

what is the difference between development and testing

1 Answers  

Can a function return a dictionary object?

2 Answers   CG, Semantic Space,

While testing .net applications with QTP 9.1 in normal recording mode, QTP records my unintentional mouse clicks and window dragging which I don't want. But I can't stop QTP recording those mouse clicks and window dragging. Can somebody let me know how I can get rid of it, please ! Thanks.

1 Answers  

how would you go for testing a web application like any jobsite?(using manual n qtp)..pls frnds its very urgent ..i need realtime answers...thanks in advance

2 Answers   Wipro,

Which property do you use to retrieve or assign data into a cell in a Data Table object?

1 Answers  

What is test object model in QTP ?

8 Answers  

Can anyone tell me what is the equivalant method to be used in QTP for "web_obj_get_text" used in winrunner. My winrunner code is below. set_window("Confirm Add Subscriber"); rc = web_obj_get_text("Add subscriber:","#8","#1",orderID,"The order number is","\.",1); basically I need to retrieved the "orderID " from a string present in 8th row & 1st col of table "Add subscriber"

1 Answers  

why should we give deliver good quality software?

0 Answers  

In an Excel sheet take two fields as agentname and password and type some valid agentname and password.call that excel sheet in qtp so that qtp opens the flightreservation window taking into consideration how many records are entered in the excel sheet.For example if 3 records are entered today it will open 3 FR windows,if in near future the records are more than 3 then it will open that number of times.

3 Answers  

What is the difference between call to existing action and copy of an action?

0 Answers  

what is description object?

0 Answers  

When using descriptive programming?

0 Answers