Question Excel VBA macro to automate Avaya CMS Supervisor reports

I could do that all over again just for you but I got similar request many times that is why I decided to pre-make a file that does this trick. You can download it from here:

Avaya CMS automation Excel VBA macro - $3.50 : Zen Cart!, The Art of E-commerce (fracta.net)

Sorry I put a price on it, but it should allow you to extract many skills, all on the same sheet or different sheets for multiple dates. It's like an all in one script. If you download it and you still can't work it out contact me so I can guide you with the settings.

Dear Friends,

I can guarantee to all of you, that It's worth every single cent you invest on this file, I've been using it since I made the purchase.

I've learned a lot from the code.

Wish you a good day!

Thanks Ulises, glad it is working for you you know I did that file after you asked me, few people wanted to do that but couldn't get their head around the structure. The Demo download file makes it easy to see. I had about 4 others previous members come back and download a copy. If any one got a copy and it is not working for them it will be a data entry error, don't be shy to write back for help.

I did the purchase. I'll try it tomorrow and let you know.

Thanks for your work

Hi even i tried doing the same but the data does not gets extracted or copy pasted in sheet 1 ...mentioned below is the code which has my details updated...

Public Sub CMSConn()
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

Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")
serverAddress = "syd-aesc-cms1"
'serverAddress = "148.172.134.74"
mydate = "28/10/2014"
UserName = "ykumar"
passW = "Kumar1"
agentName = "Scott.Bradley"
If cvsApp.CreateServer(UserName, "", "", serverAddress, False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.login(UserName, passW, serverAddress, "ENU") Then
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Trace by Location")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The Report " & "Historical\Agent\Trace by Location" & " was not found on ACD 1", vbCritical Or vbOKOnly, "CentreVu Supervisor"
Else
Set Log = CreateObject("ACSERR.cvslog")
Log.AutoLogWrite "The Report " & "Historical\Agent\Trace by Location" & " was not found on ACD 1"
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Debug.Print Rep.SetProperty("Agent", agentName)
Debug.Print Rep.SetProperty("Dates", mydate)
Debug.Print Rep.SetProperty("Times", "00:00-23:59")
b = Rep.ExportallData("", 9, 0, False, True, True)
Set wk = ThisWorkbook
wk.Sheets(1).Cells.ClearContents
wk.Sheets(1).Cells(1, 1).PasteSpecial xlPasteValues

'b = Rep.ExportData(fileP, 9, 0, False, True, True)


Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If

Set Info = Nothing
End If

End If

cvsConn.logout
cvsConn.Disconnect
cvsSrv.Connected = False
Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
MsgBox "completed"
End Sub

Please Help...

Hi could you please help me with the code i first want to check it on the agent trace report if its working i will go ahead and purchase

Thanks