QTP无法创建ActiveX对象

Question

在编写脚本时，我遇到了这个问题。

我不能发布整个代码，但这是一个与我自己写的相同的样本;

Dim qtpApp
Set qtpApp = createObject("QuickTest.Application")
qtpApp.Launch

我也试过这个：

Set qtpApp = createObject("QuickTest.application")

和这个：

Set qtpApp = createObject("Quick Test.Application")

但我继续获取“Active X Component无法创建对象。在第x行：”设置qtpApp = createObject（“QuickTest.Application”）“

任何帮助赞赏。 谢谢。

Answer 1

正确的prog-id是您首先尝试的"QuickTest.Application" 。

可能的原因是您的计算机上未正确安装QTP。 验证是否是这种情况

1. 尝试手动启动QTP
2. 检查注册表HKEY_CLASSES_ROOT\\QuickTest.Application\\CLSID存在以下项
3. 从注册表中获取classid并检查它的密钥是否存在于HKEY_CLASSES_ROOT\\CLSID （或者如果它是64位机器HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID ）
4. 验证在此项下， LocalServer32指向QTP的bin目录下的“QtpAutomationAgent.exe”