QC连接：ActiveX部件不能创建对象

[Alvin-x]

在Excel中开发自动化，连接QC11时，运行下面的代码，出错......
求大神支招.....

 Dim qcURL As String
    Dim qcID As String
    Dim qcPWD As String
    Dim qcDomain As String
    Dim qcProject As String
    Dim tdConnection As Object
  
   ' On Error GoTo err
       qcURL = "https://xxxx/qcbin/"
       qcID = "Username"
       qcPWD = "Password"
       qcDomain = "Domain"
       qcProject = "Project "
  
   
 
   Set tdConnection = CreateObject("TDApiOle80.TDConnection")
   '代码运行到下面的时候，提示：运行时错误，ActiveX部件不能创建对象..
   tdConnection.InitConnectionEx qcURL

   tdConnection.Login qcID, qcPWD

   tdConnection.Connect qcDomain, qcProject