VBS中能否使用RunAction呢？

zte_boy

VBS中能否使用RunAction呢？

hanliu

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtOptions 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create a Application object

' Open the test
qtApp.Open "E:\自动化测试工程\调用", False ' Open a test named "Test1"
qtApp.Test.Settings.Resources.DataTablePath = "E:\自动化测试工程\调用\default.xls"     'add by me
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

' Run the test
Set qtOptions = CreateObject("QuickTest.RunResultsOptions") ' Create a Results Option object
qtOptions.ResultsLocation = "<TempLocation>" ' Set the Results location to temporary location
qtApp.Test.Run qtOptions, True ' Run the test and wait for it to finish before continuing the automation script


'qtApp.Test.Save

' Save the Run-time Data Table
'qtApp.Test.LastRunResults.DataTable.Export "C:\Runtime.xls" ' Save the run-time Data Table to a file

qtApp.Quit ' Exit QuickTest
Set qtOptions = Nothing ' Release the Run Results Options object
Set qtApp = Nothing ' Release the Application object

zte_boy

可我怎么也调不成功，我调的是另外一个TEST中的Action

getfly

同意三楼的

hsjzfling

可以写在vbs中，但是必须通过QTP来执行~~

今天有雾

我没有试过，不过想来应该是可以的