2016-10-02 38 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

回答