QTP无法创建ActiveX对象(QTP Cannot Create ActiveX Object)

虽然对剧本的工作，我现在面临这个问题。

我不能发布整个代码，但是这是确实是我写我自己的samething的样本;

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

我也试过这样：

Set qtpApp = createObject("QuickTest.application")

和这个：

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

不过，我不断收到“的Active X组件不能创建对象的线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指向“QtpAutomationAgent.exe” QTP的bin目录下

文章来源: QTP Cannot Create ActiveX Object