- 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 Excel VBA macro to automate Avaya CMS Supervisor reports
- StarCross
- Visitor
9 years 11 months ago #331
by StarCross
Replied by StarCross on topic Excel VBA macro to automate Avaya CMS Supervisor reports
Thank you for taking time on this Roller. I really appreciate it!
Here you go.
'LANGUAGE=ENU
'SERVERNAME=10.231.100.5
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: VDN: Report (Skill) Interval: Export Data"
'## Parameters.Add "Report: Historical: VDN: Report (Skill) Interval: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Historical\VDN\Report (Skill) Interval","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "8850","_Top"
'## Parameters.Add "6585","_Left"
'## Parameters.Add "16065","_Width"
'## Parameters.Add "6165","_Height"
'## Parameters.Add "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "3069639","VDN"
'## Parameters.Add "0","Date"
'## Parameters.Add "00:00-10:45","Times"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\VDN\Report (Skill) Interval")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 8850
Rep.Window.Left = 6585
Rep.Window.Width = 16065
Rep.Window.Height = 6165
Rep.SetProperty "VDN","3069639"
Rep.SetProperty "Date","0"
Rep.SetProperty "Times","00:00-10:45"
b = Rep.ExportData("", 9, 0, True, True, True)
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
Here you go.
'LANGUAGE=ENU
'SERVERNAME=10.231.100.5
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: VDN: Report (Skill) Interval: Export Data"
'## Parameters.Add "Report: Historical: VDN: Report (Skill) Interval: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Historical\VDN\Report (Skill) Interval","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "8850","_Top"
'## Parameters.Add "6585","_Left"
'## Parameters.Add "16065","_Width"
'## Parameters.Add "6165","_Height"
'## Parameters.Add "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "3069639","VDN"
'## Parameters.Add "0","Date"
'## Parameters.Add "00:00-10:45","Times"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\VDN\Report (Skill) Interval")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\VDN\Report (Skill) Interval was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 8850
Rep.Window.Left = 6585
Rep.Window.Width = 16065
Rep.Window.Height = 6165
Rep.SetProperty "VDN","3069639"
Rep.SetProperty "Date","0"
Rep.SetProperty "Times","00:00-10:45"
b = Rep.ExportData("", 9, 0, True, True, True)
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
The topic has been locked.
9 years 11 months ago #332
by roller
Replied by roller on topic Excel VBA macro to automate Avaya CMS Supervisor reports
I think I see where the problem is, change
Sub doRep(sReportName As String, ByVal sk As Integer)
into this:
Sub doRep(sReportName As String, ByVal sk As Variant)
Sub doRep(sReportName As String, ByVal sk As Integer)
into this:
Sub doRep(sReportName As String, ByVal sk As Variant)
The topic has been locked.
- StarCross
- Visitor
9 years 11 months ago #333
by StarCross
Replied by StarCross on topic Excel VBA macro to automate Avaya CMS Supervisor reports
:lol: it worked!! yey!! thank you roller, you're the best!
just have to figure out how to put them all together in one module
just have to figure out how to put them all together in one module
The topic has been locked.
- hcyeap
- Visitor
9 years 11 months ago #334
by hcyeap
Replied by hcyeap on topic Excel VBA macro to automate Avaya CMS Supervisor reports
Hi Roller,
I downloaded the RecordTraceTL.xlsm file.
When I tried to add in Report Component, it will show me "Name conflicts with existing module, project or object library" error message.
If I try to run without it, it will show "Compile error: Can't find project or library" error message.
Can you kindly advise?
Thank you!
I downloaded the RecordTraceTL.xlsm file.
When I tried to add in Report Component, it will show me "Name conflicts with existing module, project or object library" error message.
If I try to run without it, it will show "Compile error: Can't find project or library" error message.
Can you kindly advise?
Thank you!
The topic has been locked.
9 years 11 months ago #335
by roller
Replied by roller on topic Excel VBA macro to automate Avaya CMS Supervisor reports
First untick the existing reference to the report component, it should be near the top with the word MISSING at the front. Then retick it angain from the list further down.
The topic has been locked.
- hcyeap
- Visitor
9 years 11 months ago #336
by hcyeap
Replied by hcyeap on topic Excel VBA macro to automate Avaya CMS Supervisor reports
Hi Roller,
Thank you for pointing out, I didnt see that just now.
The macro ran, but the folder created is blank.
I believe I missed out something, will keep on exploring though.
On more question, can I use back the same framework and modify it to generate other report such as login/logout?
Thank you.
Thank you for pointing out, I didnt see that just now.
The macro ran, but the folder created is blank.
I believe I missed out something, will keep on exploring though.
On more question, can I use back the same framework and modify it to generate other report such as login/logout?
Thank you.
The topic has been locked.
Time to create page: 0.633 seconds