Thanks for your reply. Here's the code I've got so far.
I can now get the correct report to run however it only ever runs the last report that I ran manually via CMS if that makes sense.
I'm trying to figure out how to have the macro run a date range I specify in my worksheet.
Sub Update_PastDate()
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 cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")
Set cvsSrv = cvsApp.Servers(1)
'Team Summary.
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Handle Time Team Breakdown")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\Agent Group Daily - Staff Summary was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\Agent Group Daily - Staff Summary 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 Group", "Support Orange")
Debug.Print Rep.SetProperty("Dates", B36)
b = Rep.ExportData("", 9, 0, False, True, False)
Set wk = ThisWorkbook
Sheets("Data").Select
Range("A1: Q13").Select
Selection.ClearContents
wk.Sheets(2).Cells(1, 1).PasteSpecial
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
End Sub
