Question Excel VBA macro to automate Avaya CMS Supervisor reports

Humm it looks fine your code. Are you running on ACD 1? is the agent name correct, you have a full stop in between the first name and surname?

What you need to do is export the .acsauto script from CMS for the trace report, I assume you know how to do that. then open it in a notepad to double check that you set the properties correctly. Post the script from the notepad here.

The Trace Report macro that you can purchase has similar code to what you already have expect it pulls all the agents' name from an agent group, runs all the traces and saves them in a folder (for each date) one Excel file per agent.

By the way a sample working Excel file setup for agent trace can be downloaded here:
AVAYA CMS Agent Trace Report Excel Macro VBA - $7.50 : fracta.net Edgar Badawy, We keep it simple

Hello Thanks a ton for the reply but to answer your questions could you please tell me where can i find which acd am i running...secondly Yes the Agent name is correct i tried using agent id which is off all numeric even that did not help...andthirdly i am really sorry i do not know how to export acsauto script from cms..could you please teach me how to do so...

Thanks

Hello Just to add to it i have around 265 agents data to be generated on a daily basis..so if you could please help me with the code it will be really helpful.

Thanks

Everything you need including the ACD number will be in the script. To export the script first run the trace report for an agent. From the report menu look for Script and select it and save it to you desktop. Open Notepad and drag that file in it to see the code.

Sorry I am at home and don't have Avaya in front of me so I am going by memory.

Hi I Just did this and below are the details what i got...

'LANGUAGE=ENU
'SERVERNAME=syd-aesc-cms1
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Agent: Trace by Location: Print"
'## Parameters.Add "Report: Historical: Agent: Trace by Location: Print","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "5","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Agent\Trace by Location","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-108","_Top"
'## Parameters.Add "-108","_Left"
'## Parameters.Add "23256","_Width"
'## Parameters.Add "12768","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "The report Historical\Agent\Trace by Location was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "53096","Agent"
'## Parameters.Add "10/28/2014","Dates"
'## Parameters.Add "00:00-23:30","Times"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"

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, "Avaya CMS 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

Rep.Window.Top = -108
Rep.Window.Left = -108
Rep.Window.Width = 23256
Rep.Window.Height = 12768


Rep.TimeZone = "default"



Rep.SetProperty "Agent","53096"

Rep.SetProperty "Dates","10/28/2014"

Rep.SetProperty "Times","00:00-23:30"




b = Rep.PrintReport





Rep.Quit



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

End If
Set Info = Nothing
'## cvs_cmd_end

End Sub

all looks correct, ACD is 1. Try myDAte = "10/28/2014" and agentName = "53096" see if that works.