查看完整版本: qtApp.Options.Run.ViewResults = True

qtApp.Options.Run.ViewResults = True

[size=6]问题为红色部分[/size]

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

' Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"

qtApp.Options.Run.RunMode = "Fast"
[size=5][color=Red]qtApp.Options.Run.ViewResults = True[/color]  
[color=Red]这个为True是不是表示QTP执行完成报表显示啊？
我的QTP 9.5 执行完成这个报表不显示。

使用QTP菜单的执行按钮报表就自动显示。

大家帮我看看。

谢谢了[/color][/size]

qtApp.Open "C:\AutoTest\Model\BP\SC-03-001", True ' Open the test in read-only mode

' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations" ' Run only iterations 2 to 4
qtTest.Settings.Run.StartIteration = 2
qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when error occurs

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\AutoTest\Model\BP\SC-03-001\Res1" ' Set the results location

qtTest.Run qtResultsOpt ' Run the test

MsgBox qtTest.LastRunResults.Status ' Check the results of the test run
'qtTest.Close ' Close the test

Set qtResultsOpt = Nothing ' Release the Run Results Options object
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object

[[i] 本帖最后由 wapqq 于 2008-6-24 14:59 编辑 [/i]]

ViewResults  指明运行会话结束后，是否在“测试结果”窗口中显示结果。