Hi Friends,
I'm having set of scripts to execute in driver script. After executing my
driver script that particular test results are stored in corresponding test
folder (Result.xml). But I need to export some of the results to Excel sheet
like Test Script name, Status, Start time and End Time. Is this possible?
Herewith am attaching my driver script.
Anyone please help me out this one.
Driver Script here:
Dim App
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
Dim QTP_Tests(2)
QTP_Tests(1) = "C:\Program Files\HP\QuickTest Professional\Tests\Test 1"
QTP_Tests(2) = "C:\Program Files\HP\QuickTest Professional\Tests\Test 2"
Set res_obj = CreateObject("QuickTest.RunResultsOptions")
For i = 1 to UBound (QTP_Tests)
App.Open QTP_Tests(i), True
Set QTP_Test = App.Test
res_obj.ResultsLocation = QTP_Tests(i) & "\Res1"
QTP_Test.Run res_obj, True
QTP_Test.Close
Next
App.Quit
Set res_obj = nothing
Set QTP_Test = nothing
Set App = nothing
Regards,
Saravanan M
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
