QTP的tsr对象库文件转换成XML
Function exportTsrToXml(tsrFilePath,xmlFilePath)
Dim autoRepository
Set autoRepository = CreateObject("Mercury.ObjectRepositoryUtil") '创建ORAOM对象
If Not fso.FileExists(tsrFilePath) Then '如果tsr文件不存在
MsgBox "Error:Missed the ObjectRepository file !",48,"Export tsr to xls"
WScript.Quit
Else'否则导出为xml文件
autoRepository.ExportToXML "H:\Repository\2Obj_2d.tsr",xmlFilePath
Set autoRepository = Nothing
End If
End Function
点亮测试人生!QQ:408129370
百度阅读电子书地址:http://yuedu.baidu.com/ebook/f6dbb2a2f01dc281e53af0f3
讨论QQ群:536192476
个人公众号:
百度阅读电子书地址:http://yuedu.baidu.com/ebook/f6dbb2a2f01dc281e53af0f3
讨论QQ群:536192476
个人公众号: