I am trying to run below the code, but I am getting an error called "ActiveX component can't create object.
Code:
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 = "CMS"
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", "Sales"
'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", "Sales"
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
Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
End If
Application.ScreenUpdating = True
End Sub
