Question

在UFT中运行脚本之后，我想将结果存储在与我的测试名称相同或与测试相关的word文档中，因此我可以轻松区分哪个结果属于哪个测试。
任何人都可以帮我吗？

以下是代码：

Dim oWord

Set oWord = CreateObject("Word.Application")

oWord.Documents.Add

oWord.ActiveDocument.Saveas "C:\Users\Desktop\RunResults\TestForWordDocResults2"

Dim oWordTestPath 

oWordTestPath = "C:\Users\Desktop\AutomationScripts\TestForWordDocResults"

' Launch QuickTest

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Start QuickTest

qtApp.Visible = True ' Make the QuickTest application visible 

' Run the Test

qtApp.Open oWordTestPath, False ' Open the test 

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 'Create the Run Results Options object 

testResults = "C:\Users\Desktop\RunResults" 

' Original location for the test results.

qtResultsOpt.ResultsLocation = testResults ' Specify the location to save the test results.

oWordTestPath.Run qtResultsOpt, True ' Run the test and wait until end of the test run 

' Close QuickTest Professional

qtApp.Quit

此代码的作用：它创建Word文档，但不存储运行结果。

P.S。我想使用驱动程序脚本存储运行结果，而不是＆＃34;选项＆＃34;在UFT

Answer 1

UFT提供以三种不同格式导出运行结果的选项。

的 HTML

的 PDF

的 DOC

您所要做的就是：

转到 Options --> Run Sessions （来自常规标签页）
选中 Automatically export run results when run session ends
的复选框点击 Configure
选择 Export Type 作为 Doc
对要导出的详细信息进行必要的更改指定 Export Location
如果要在所有情况下导出结果，请取消选中 Export run results only if run session fails 的复选框点击 OK

现在，每次执行脚本时，UFT都会将运行结果存储在指定位置。

注意：
您将无法导出 Data, Screen Recorder and Log Tracking 信息。

如何将QTP的运行结果存储到word文件中？

1 个答案: