QTP中除了有AOM自动化测试对象让我们来 通过外部的程序来操控 QTP 来实现自动化, 其实QTP的核心也提供了一个 ORAOM对象来供我们通过代码来操控对象库。 以下的代码是把 对象库文件 转换为 xml 格式 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''目的 : 将对象库转化为XML文件的格式 ' sourceFile : 对象库tsr 文件的路径 ' targetFilePath : 输出xml的路径 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function ExportToXML (sourceFile, targetFilePath) Dim objectRepository Set objectRepository = CreateObject("Mercury.ObjectRepositoryUtil") objectRepository.ExportToXML sourceFile, targetFilePath set objectRepository = nothing End Function filePath = "c:or est2.tsr" targetFilePath = "c:oryy1.xml" ExportToXML filePath ,targetFilePath