- Thank you received: 9
Welcome to the fracta.net forum!
Share your coding ideas or ask questions.
Share your coding ideas or ask questions.
Question Re: How? CMS data automatic export to Excel
- macario
- Topic Author
- Visitor
12 years 11 months ago #36
by macario
How? CMS data automatic export to Excel was created by macario
Hi,
I would like to know how to use macro in exporting the login/logout of agents in Avaya CMS.
Historical>Agents>Login/Logout(Skill)
any suggestion is highly appreciated!
regards,
Macario
I would like to know how to use macro in exporting the login/logout of agents in Avaya CMS.
Historical>Agents>Login/Logout(Skill)
any suggestion is highly appreciated!
regards,
Macario
Please Log in or Create an account to join the conversation.
12 years 11 months ago - 7 months 4 weeks ago #37
by roller
Replied by roller on topic Re: How? CMS data automatic export to Excel
Have a look at this post that explains how to export the agent trace report using Excel VBA:
fracta.net/fracta/index.php/forum/2-exce...s-supervisor-reports
Then generate the log-in log-out report from your Avaya and save the script on your desktop. Open the Avaya script with Notepad and read the code, it will be very similar to the above post except the sections to do with the report name. Replace those sections with what you see in the file you opened in Notepad.
Give it a try. or download a working example in Excel VBA file from the link below:
Avaya CMS Agents Login/Logout Skill Excel VBA Macro - $9.75 : fracta.net Edgar Badawy, We keep it simple
fracta.net/fracta/index.php/forum/2-exce...s-supervisor-reports
Then generate the log-in log-out report from your Avaya and save the script on your desktop. Open the Avaya script with Notepad and read the code, it will be very similar to the above post except the sections to do with the report name. Replace those sections with what you see in the file you opened in Notepad.
Give it a try. or download a working example in Excel VBA file from the link below:
Avaya CMS Agents Login/Logout Skill Excel VBA Macro - $9.75 : fracta.net Edgar Badawy, We keep it simple
Last edit: 7 months 4 weeks ago by roller.
Please Log in or Create an account to join the conversation.
- macario
- Topic Author
- Visitor
12 years 10 months ago #38
by macario
Replied by macario on topic Re: How? CMS data automatic export to Excel
Thanks for this!
by the way, can you make a script for me? i will review and will study.
Historical/ Agent/Agentlogin\logout(Skill)
Thanks!
by the way, can you make a script for me? i will review and will study.
Historical/ Agent/Agentlogin\logout(Skill)
Thanks!
Please Log in or Create an account to join the conversation.
- macario
- Topic Author
- Visitor
12 years 10 months ago #39
by macario
Replied by macario on topic Re: How? CMS data automatic export to Excel
Here's the script for the Login/Logout that i am trying to export in an excel sheet and automatically paste it to Cell A1.
Hope someone can help and arrange this for me.
'LANGUAGE=ENU
'SERVERNAME=aegiscmsuser.peoplesupport.com
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Agent: Login/Logout (Skill): Show"
'## Parameters.Add "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "Report: Historical: Agent: Login/Logout (Skill): Show","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "3","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Historical\Agent\Login/Logout (Skill)","_Report"
'## Parameters.Add "1","_ACD"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.FastLoad = True
b = Rep.Window.Show
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
Hope someone can help and arrange this for me.
'LANGUAGE=ENU
'SERVERNAME=aegiscmsuser.peoplesupport.com
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Agent: Login/Logout (Skill): Show"
'## Parameters.Add "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "Report: Historical: Agent: Login/Logout (Skill): Show","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "3","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Historical\Agent\Login/Logout (Skill)","_Report"
'## Parameters.Add "1","_ACD"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.FastLoad = True
b = Rep.Window.Show
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
Please Log in or Create an account to join the conversation.
12 years 9 months ago - 12 years 9 months ago #40
by roller
Replied by roller on topic Re: How? CMS data automatic export to Excel
Ok here's the code you need to put in the Excel VBA editor, make sure you change the user name, password, skill number and date to suit yours.
Sub CMSGetReport()
Dim lwbk As Workbook
Dim lws As Worksheet
Set lwbk = ThisWorkbook
Set lws = lwbk.Sheets(1)
lws.Range("b2:e65536").ClearContents
Const Username As String = "yourusename"
Const Password1 As String = "yourpassword"
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")
If cvsApp.CreateServer(Username , "", "", "CMS", False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.Login(Username , Password1 , "CMS", "ENU") Then
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.SetProperty "Skill", "19" ' or what ever skill number you want
Rep.SetProperty "Date", "19/07/2011" ' or what ever date you want
b = Rep.ExportData("", 9, 0, True, True, False)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
lws.Activate
lws.Paste Destination:=lws.Cells(1, 1)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
End If
cvsApp.Servers.Remove cvsSrv.ServerKey
cvsCon.Logout
cvsCon.Disconnect
Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
End Sub
Sub CMSGetReport()
Dim lwbk As Workbook
Dim lws As Worksheet
Set lwbk = ThisWorkbook
Set lws = lwbk.Sheets(1)
lws.Range("b2:e65536").ClearContents
Const Username As String = "yourusename"
Const Password1 As String = "yourpassword"
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")
If cvsApp.CreateServer(Username , "", "", "CMS", False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.Login(Username , Password1 , "CMS", "ENU") Then
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Login/Logout (Skill)")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Agent\Login/Logout (Skill) was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.SetProperty "Skill", "19" ' or what ever skill number you want
Rep.SetProperty "Date", "19/07/2011" ' or what ever date you want
b = Rep.ExportData("", 9, 0, True, True, False)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
lws.Activate
lws.Paste Destination:=lws.Cells(1, 1)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
End If
cvsApp.Servers.Remove cvsSrv.ServerKey
cvsCon.Logout
cvsCon.Disconnect
Set Log = Nothing
Set Rep = Nothing
Set cvsSrv = Nothing
Set cvsConn = Nothing
Set cvsApp = Nothing
End Sub
Last edit: 12 years 9 months ago by roller.
Please Log in or Create an account to join the conversation.
- macario
- Topic Author
- Visitor
12 years 9 months ago #41
by macario
Replied by macario on topic Re: How? CMS data automatic export to Excel
YOU ARE THE BEST!
Thanks!
Macario
Thanks!
Macario
Please Log in or Create an account to join the conversation.
Time to create page: 0.421 seconds