2016-10-02 20 views
0

Я пытаюсь подключиться к HPQC, хотя vbscript в excel. Я уже добавил библиотеку OTA в Reference.TDConnection в Excel VBA

Когда я пытаюсь создать экземпляр объекта, как TDConnection,

Global TDC Как TDConnection

Set TDC = новый TDConnection

его метания ошибка:

Ошибка выполнения '429': Компонент ActiveX не может создать объект.

Я использовал следующий код для проверки:

Sub Connect() 

Dim tdc as TDConnection 
Dim url as String 
Dim Domain as String 
Dim Project as String 
Dim username as String 
Dim Password as String 
url = "http://qc.abcdef.com" 
Domain = "NNNN" 
Project = "NNNNNNN" 
username = "ABCD" 
Pasword = "XYZ" 
Disconnect 'Disconnects any open connections 
If (tdc Is Nothing) Then Set tdc = New TDConnection 
If (tdc Is Nothing) Then GoTo ConnectionErr 
tdc.InitConnectionEx url 'Initiate Connection 
tdc.Login username, Password 
tdc.Connect Domain, Project 
MsgBox "Connection Established" 
Exit Sub 
ConnectionErr: 
MsgBox "Connection Error" 

End Sub 

Затем бежал из CMD ниже команды

C:\Windows\SysWOW64> wscript.exe "C:\...\QC.vbs" 

но перед ошибкой ErrorMsg

Пожалуйста, помогите!

+0

Вы пытаетесь использовать VBScript, или используете VBA? Из того, что я вижу в википедии, VBScript не поддерживает переменные размера как «что», поэтому он дает ошибку, указывающую на «A» в «As». – YowE3K

ответ

0

Попробуйте запустить свой VB скрипт с командной строки с использованием специфических CScript -

C: \ WINDOWS \ SysWOW64> cscript.exe ".... .vbs"

Для получения дополнительной информации см https://community.hpe.com/t5/Quality-Center-ALM-Practitioners/ActiveX-component-can-t-create-object-TDApiOle80-TDConnection/td-p/4742677

+0

Не удалось решить проблему. Я добавил подробности выше. Облицовка аналогичной проблемы при использовании cscript. Пожалуйста, смотрите. Благодарю. – Vikram