我創建了一個VB腳本,它將QTP的對象存儲庫文件(.tsr)轉換爲XML,然後轉換爲Excel。此Excel文件格式也是通過VB腳本配置的。它運作良好,但是,我試圖在一臺新機器上運行此操作,並且出現錯誤:ActiveX組件不能創建對象:Mercury.ObjectRepositoryUtil
ActiveX組件不能創建對象:Mercury.ObjectRepositoryUtil。
腳本:
Public Function ExportTSRToXML(TSRPath,XMLPath)
Set XMLRepositoryObj = CreateObject("Mercury.ObjectRepositoryUtil")
XMLRepositoryObj.ExportToXML TSRPath, XMLPath
ExportTSRToXML = XMLPath
Set XMLRepositoryObj = Nothing
End Function
這裏是我的步驟來解決這個問題:用REGSVR32 SYSWOW64下2.使用CSCRIPT.EXE跑VBScript文件
1.註冊RepositoryUtil.dll在步驟2上面提到,我看到腳本執行時出錯: 「Microsoft VBScript運行時錯誤:無效的過程調用或參數」
我在想什麼?不能弄明白。
謝謝你的幫助。再一次,這個代碼在多臺機器上工作得很好。新機器(64位)具有統一功能工具11.5而不是QTP 11.0。
當您註冊DLL時,它是否成功? – Motti 2013-04-25 19:57:46
是的它成功了。 – user2034602 2013-04-25 20:14:02
我提取了代碼,只運行'CreateObject'和'ExportToXML'部分,它在我的描述之後適用於我。難道是錯誤在別的地方? – Motti 2013-04-28 08:12:48