How to update Pass/Fail in Excel using Vbscript

[anji2010]

How to update Pass/Fail in Excel using Vbscript

TCID Action property Expeted Actual Pass/Fail

thses are the columns in excel . based on the "Action" keyword i wrote a function which returns pass/fail .

how to update that pass/fail in excel sheet for that column "Pass/Fail" of that "Action " based on pass or fail returned

Please help me

thanks in advance

[basanth27]

Learn about Createobject("Excel.Application")

[ursvinod]

Hi,

Below is the solution,

Code:

Set qtApp = CreateObject("QuickTest.Application")
Set qtTest = qtApp.Test
Run_Status = qtTest.LastRunResults.Status ' This will give you the status of the Run i.e Pass or Fail.
Set appExcel = CreateObject("Excel.Application")
Set objWorkBook = appExcel.Workbooks.Add '
Set objWorkSheet =  objWorkBook.WorkSheets.Add
appExcel.Cells(2,2).Value = Run_Status'= This will update the status of the test in 2nd row and 2nd column in the worksheet
appExcel.ActiveWorkbook.SaveAs "c:\Results.xls"
appExcel.Quit

Use the above code at the end of out script.

- Vinod

[ritesh]

Hi Vinod,

Can u please explain in little bit detail. Bcoz i'm getting output as 'Running'.

I use the following steps to update the result in excel:
1) I have written a function called ResultEntry() and saved it inside a VB file.
2) I call this function at the end of each test case.

Here is the ResultEntry function

Code:

Public Function ResultEntry(TestCaseId, TestCase, Desc, Result)
   MyTime=Now
   MyFile.Write(TestCaseId)
   MyFile.Write(",")
   MyFile.Write(TestCase)
   MyFile.Write(",")
   MyFile.Write(Desc)
   MyFile.Write(",")
   MyFile.Write(Result)
   MyFile.WriteLine("")
End Function

And I call this function at the end of the each test case inside the If loop like:

Code:

If (Pass condition) Then
ResultEntry "ID", "Test Case", "Description", "Pass"
Else
ResultEntry "ID", "Test Case", "Description", "Fail"

Please let me know if I'm wrong or even if I can improve the steps what i'm following.

[KVK]

Hi Ritesh,

Code:

Run_Status = qtTest.LastRunResults.Status

The above statement will return the current run status of the test.

You have to use this statement only at the end of your script i.e end of last action in your test. If there are any other actions that need still needs to run then the run status will be Running.

Please try this and let me know..

---

Hi Ritesh,

The above code that Vinod pasted can not be used in QTP instead use the same code in a vbs file and then run the vbs file. It works perfectly

Code:

Set QtpApp = CreateObject("QuickTest.Application")
QtpApp.Launch
QtpApp.Visible = True
QtpApp.Open "C:\TestScript"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create
the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\TestScrip" ' Set the results
QtpApp.Test.Run ' Run the test
MsgBox QtpApp.Test.LastRunResults.Status ' Check the results of the test  run
QtpApp.Close

Paste the above code in a vbs file(*.vbs) and run the vbs file.

Let me know if it works