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”