uft14 - 脚本执行期间调用的函数列表

Question

我正在尝试使用 UFT 为一个非常大的自动化套件整合功能。有许多函数被调用。我很好奇是否有人有使用 UFT 对象模型或类似内容的代码片段，可以跟踪调用到输出选项卡、文本文件或其他可以仔细查看调用的函数的函数在脚本运行期间。

可以添加在测试结果审阅器、输出选项卡等中编写信息行的调用，但这显然是一项非常费力的练习。

Answer 1

Sub GetAction(piRow,ByRef pstrActionName)
'On Error Resume Next
'Declaration
Dim objxl,objwb,rowno,strAction,objws
Set objxl=CreateObject("Excel.Application")
'Open the Datasheet
Set objwb=objxl.workbooks.open(excelpath)
objxl.visible=False
objxl.displayalerts=False
Set objws=objxl.activeworkbook.worksheets("Sheet1")
'Get the ActionName
strAction=objxl.cells(piRow,1)
    pstrActionName=strAction
End If
If Err.Number<>0 Then
    Msgbox "GetAction:"&"Error :"&Cstr(Err.Description)
End If
Set objws=Nothing
Set objwb=Nothing
'Close and Quit from Excel
objxl.Quit
    End Sub'GetAction

将所有函数名称写在 Excel 工作表中

调用上面的函数，它将从 Excel 表中读取函数名称

使用以下步骤调用函数

call pstrActionName