3

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

我无法发布整个代码，但这是一个与我自己编写的代码相同的示例；

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

我也试过这个：

Set qtpApp = createObject("QuickTest.application")

和这个：

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

但我不断收到“Active X 组件无法创建对象。在第 x 行：“Set qtpApp = createObject("QuickTest.Application")”

任何帮助表示赞赏。谢谢。

4

1 回答 1

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”
于 2012-07-02T06:36:36.017 回答