来自UFT函数的AutoExport运行结果

Question

我正在使用UFT 12.52运行自动化测试脚本。我想知道是否有一种方法可以从UFT脚本中的函数中导出结果。其思想是调用函数并导出运行结果。

我可以在外部创建一个.vbs文件，该文件在uft中启动脚本并运行和导出结果，但我不知道如何在UFT脚本中作为函数执行。

下面是我的代码，用于从外部导出结果。

谢谢

Dim qtApp 
Dim qtTest 
Dim qtResultsOpt 
Dim qtAutoExportResultsOpts 

Set qtApp = CreateObject("QuickTest.Application") 
qtApp.Launch 
qtApp.Visible = True 


qtApp.Options.Run.ImageCaptureForTestResults = "OnError"

qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

qtApp.Open "Z:\D:\paperlessEnhancements\", True 


Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations" 
qtTest.Settings.Run.StartIteration = 1
qtTest.Settings.Run.EndIteration = 1
qtTest.Settings.Run.OnError = "NextStep" 

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 
qtResultsOpt.ResultsLocation = "C:\Tests\Test1\Res1" n

Set qtAutoExportResultsOpts = qtApp.Options.Run.AutoExportReportConfig
qtAutoExportResultsOpts.AutoExportResults = True 
qtAutoExportResultsOpts.StepDetailsReport = True 
qtAutoExportResultsOpts.DataTableReport = True 
qtAutoExportResultsOpts.LogTrackingReport = True
qtAutoExportResultsOpts.ScreenRecorderReport = True
qtAutoExportResultsOpts.SystemMonitorReport = False 
qtAutoExportResultsOpts.ExportLocation =
"C:\Documents and Settings\All  Users\Desktop" 
qtAutoExportResultsOpts.UserDefinedXSL = "C:\Documents and Settings\All 
Users\Desktop\MyCustXSL.xsl" 
qtAutoExportResultsOpts.StepDetailsReportFormat = "UserDefined" 
qtAutoExportResultsOpts.ExportForFailedRunsOnly = True 

qtTest.Run qtResultsOpt 

MsgBox qtTest.LastRunResults.Status 
qtTest.Close 
Set qtResultsOpt = Nothing
Set qtTest = Nothing 
Set qtApp = Nothing
Set qtAutoExportSettings = Nothing 

我还尝试了这个：

Dim qtResultsOpt 
Dim qtAutoExportResultsOpts 


Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 
qtResultsOpt.ResultsLocation = "C:\Temp\Notepad1" 
Set qtResultsOpt = Nothing

Answer 1

@Lukeriggz :将一个函数库附加到所有脚本中，该函数库应该在脚本中的第一个位置调用(您也可以调用当前库函数本身中的行。但重要的是首先设置属性并从执行开始)。库的内容应该是除了Open、run语句和releasing对象之外的代码所显示的内容(主要是配置语句)。这将使您的结果位置始终指向您想要的路径，您可以查看结果。而脚本的配置将脚本名称放在一个变量中，以创建动态的结果文件名

另一种实现我们可以使用内置环境变量轻松地识别结果的保存位置。因此，通过编程方式，我们可以使用文件系统对象复制文件夹

enter code here

executionpath=Environment.Value("ResultDir")
path_to_save_the_results= "Type your path where the results should be saved" 
fso.CopyFolder executionpath, path_to_save_the_results