Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Question Excel VBA macro to automate Avaya CMS Supervisor reports

  • StarCross
  • Visitor
  • Visitor
9 years 11 months ago #331 by StarCross
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
The topic has been locked.
More
9 years 11 months ago #332 by roller
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)
The topic has been locked.
  • StarCross
  • Visitor
  • Visitor
9 years 11 months ago #333 by StarCross
: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 :3
The topic has been locked.
  • hcyeap
  • Visitor
  • Visitor
9 years 11 months ago #334 by hcyeap
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!
The topic has been locked.
More
9 years 11 months ago #335 by roller
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
  • Visitor
9 years 11 months ago #336 by hcyeap
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.
The topic has been locked.
Time to create page: 0.633 seconds
Powered by Kunena Forum