2016-10-02 88 views
0

我试图通过excel中的vbscript连接到HPQC。我已经将OTA库添加到参考。Excel中的TDConnection VBA

当我试图实例化一个对象作为TDConnection,

全球贸易发展局作为TDConnection

设置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?从我在wikipedia上可以看到的内容来看,VBScript不支持标注变量'As',这就是为什么它给出了一个指向“As”中的“A”的错误。 – YowE3K

回答