在自动化程序的运行过程中，经常因为环境问题或者代码本身不完善而出现流程不能顺利进行下去的情况，或者会有一些“随机”的提示框(如“操作太快，页面不能及时处理”)，这时QTP会产生错误提示，对于这些提示，完全忽略不可取，最好的是及时记录当前错误内容，重复当前操作，当错误提示累计到一定数量，中止当前流程。

　　本文提供一种QTP运行错误的捕捉和记录方法，结合QTP本身的场景恢复机制，可以很好的解决该问题。

　　首先在恢复场景中定义场景恢复策略，选择需要捕捉的错误种类，定义捕捉错误后的处理，此处定义一个异常处理函数。

　　函数定义如下：

　　Object-出错对象;Method-对象当前的方法;Argu-对象当前方法的参数;retval-当前错误的返回值(errCode)

　　Function RecordErr(Object, Method, Arguments, retVal)

　　wait 3

　　Dim ErrCode,ErrDesc,ArgCount,WrongInfo,ArgList

　　Dim i,blankStr,ErrCount,CurRow

　　‘ 在Globaltable中记录累计错误数

　　CurRow = DataTable.GlobalSheet.GetcurrentRow

　　DataTable.GlobalSheet.SetcurrentRow 1

　　If Environment ("ActionName")<> datatable.Value("CurAction",dtGlobalSheet) Then

　　datatable.Value("CurAction",dtGlobalSheet) = Environment ("ActionName")

　　datatable.Value("ErrCount",dtGlobalSheet) = 0

　　End If

　　ErrCount = CInt (datatable.Value("ErrCount",dtGlobalSheet))

　　blankStr = " "

　　ErrCode = retVal

　　If ErrCode = 0 Then

　　ErrDesc = "不明错误!"

　　Else

　　ErrDesc = DescribeResult(ErrCode)

　　End If

　　ArgCount = UBound(Arguments)

　　For i = 0 to ArgCount

　　ArgList = ArgList & CStr(i) & "--" & CStr(Arguments(i)) & "/"

　　Next

　　On Error Resume Next

　　‘ 获取对象错误具体描述，此处使用了对象较通用的name属性，部分对象没有该属性可能出错

　　WrongInfo = "Object Name: " & Object.GetTOProperty("name") & vbCrLf _

　　& blankStr & "Current Method: " & Method & vbCrLf _

　　& blankStr & "ArgList: " & ArgList & vbCrLf _

　　& blankStr & "ErrDesc: " & ErrDesc

　　On Error GoTo 0

　　GE_logError "对象运行中出现错误--" & WrongInfo,micFail

　　Err.Clear

　　ErrCount = ErrCount + 1

　　‘ 累计错误达5次后退出当前流程

　　If ErrCount >= 5 Then

　　ErrCount = 0

　　datatable.Value("ErrCount",dtGlobalSheet) = ErrCount

　　DataTable.GlobalSheet.SetcurrentRow CurRow

　　routingname = ""

　　GE_logError "*****运行过程错误过多，退出本Aciton Iteration，请运行完成后检查环境和脚本!*****",micFail

　　ExitActionIteration

　　End If

　　datatable.Value("ErrCount",dtGlobalSheet) = ErrCount

　　DataTable.GlobalSheet.SetcurrentRow CurRow

　　End Function