Error Active X Object Can't be Created

Sub getReps()
Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, Log As Object ', b As Object
Dim i As Integer
Dim repDate As String

UserForm1.Show
repDate = UserForm1.TextBox1.Value

Application.ScreenUpdating = False
Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")

serverAddress = "101.57.40.80"
For iServer = 1 To cvsApp.Servers.Count
    Set cvsSrv = cvsApp.Servers(iServer)
Set cvsConn = cvsSrv.Connection
    If cvsSrv.ServerKey Like "*" & serverAddress & "\*\*\*" Then
        bConnected = True
        Exit For
    End If
Next iServer
ThisWorkbook.Sheets(1).Cells.Clear
ThisWorkbook.Sheets(2).Cells.Clear
ThisWorkbook.Sheets(3).Cells.Clear

If bConnected = True Then
    
    cvsSrv.Reports.ACD = 1
    
   Set Info = cvsSrv.Reports.Reports("Historical\Agent\Group Summary Daily")

   If Info Is Nothing Then
      If cvsSrv.Interactive Then
          MsgBox "The report Historical\Agent\Group Summary Daily was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
      Else
          Set Log = CreateObject("ACSERR.cvsLog")
          Log.AutoLogWrite "The report Historical\Agent\Group Summary Daily was not found on ACD 1."
          Set Log = Nothing
      End If
   Else
       b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then
          Rep.SetProperty "Agent Group", "DAP PEAKBOUND"
          'Rep.SetProperty "Date", "24/12/2013"
          Rep.SetProperty "Date", repDate
          b = Rep.ExportData("", 9, 0, True, True, False)
          Rep.Quit
          ThisWorkbook.Sheets(1).Cells(1, 1).PasteSpecial
          ThisWorkbook.Sheets(1).Range("A1:A2").EntireRow.Delete
              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
       End If

   End If
   
      Set Info = cvsSrv.Reports.Reports("Historical\Agent\Group AUX Daily")

   If Info Is Nothing Then
      If cvsSrv.Interactive Then
          MsgBox "The report Historical\Agent\Group AUX Daily was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
      Else
          Set Log = CreateObject("ACSERR.cvsLog")
          Log.AutoLogWrite "The report Historical\Agent\Group AUX Daily was not found on ACD 1."
          Set Log = Nothing
      End If
   Else

       b = cvsSrv.Reports.CreateReport(Info, Rep)
       If b Then
          Rep.Window.Top = 4740
          Rep.Window.Left = 6510
          Rep.Window.Width = 12195
          Rep.Window.Height = 6270
          Rep.SetProperty "Agent Group", "NEW CUST SERV"

          Rep.SetProperty "Date", repDate
          b = Rep.ExportData("", 9, 0, True, True, False)
          Rep.Quit
          ThisWorkbook.Sheets(2).Cells(1, 1).PasteSpecial
          ThisWorkbook.Sheets(2).Range("A1:A2").EntireRow.Delete
              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
       End If
   End If

Open in new window


Getting an error on the below line
 Set cvsApp = CreateObject("ACSUP.cvsApplication")

Open in new window

Active X object can't be created.

Thanks
surah79Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rgonzo1971Commented:
Hi,

is Avaya present on this machine?

Regards
0
surah79Author Commented:
Yep avaya is present on the machine
0
Rgonzo1971Commented:
pls make sure

theses file are in the Avaya folder

acsApp.exe
acsSRV.exe
cvsconn.dll
cvsctlg.dll
acsRep.exe
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.