QTP遭遇运行错误，需要点击STOP 停止运行，释放资源

不完美解决方案：

构件一个类，使之可以在QTP运行结束的时候被触发。这里需要用到QTP的Environment.

 Environment("TestTerminate") = [new TestTermination] 

Class TestTermination
    Private Sub Class_Initialize
        ’这里写环境初始化时要做的action
        'call OverrideFunctions()
    End Sub
 
    Private Sub Class_Terminate
       ‘这里可以写一些QTP结束前的action
        'call UnRegisterFunctions()
    End Sub
End Class

function [new TestTermination]
    set [new TestTermination] = new TestTermination
end function

 

Example：

Class TestTermination
    Private Sub Class_Initialize
        'call OverrideFunctions()
    End Sub
 
    Private Sub Class_Terminate
        If not Frame_WorkBook is nothing Then
            Frame_WorkBook.save
            Frame_WorkBook.Close true
            Frame_ExcelApp.Quit
            Set Frame_WorkBook = nothing
            Set Frame_ExcelApp = nothing
            'RST_Test_Plan.close
            'set RST_Test_Plan = nothing
            'Conn_Data_Resource.Close
            'set Conn_Data_Resource = nothing
        End If
        'call UnRegisterFunctions()
    End Sub
End Class

function [new TestTermination]
    set [new TestTermination] = new TestTermination
end function