Hello-

I have some scipts in our call management system that export excel
files for each of our representatives, 80 in all. Each time we add or
remove a rep from our team, we need to edit the scripts accordingly.
The code shown below runs for the first rep, then repeats again and
again until all reps have an excel report generated. I want to
simplify this by having a seperate text file that holds the employee
numbers, so that the code will just loop through each rep and pull
their ID # from the text file until all reps have been processed. I
hope this makes sense, any help is greatly appreciated.

There are 4 locations in the code below that I want to pull the number
"72610" from a text file, then repeat the same process for all other
reps.

Scott

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Designer: CS Agent Summary by
Day adj: Export Data"
'## Parameters.Add "Report: Historical: Designer: CS Agent Summary by
Day adj: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\CS Agent Summary by Day
adj","_Report"
'## Parameters.Add "2","_ACD"
'## Parameters.Add "30","_Top"
'## Parameters.Add "60","_Left"
'## Parameters.Add "15285","_Width"
'## Parameters.Add "11010","_Height"
'## Parameters.Add "The report Historical\Designer\CS Agent Summary
by Day adj was not found on ACD 2.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "72610","Agent" <------ 72610 is the Agent # that I
want pulled from a text list
'## Parameters.Add "-1","Dates"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "M:\CentreVuReports\Agent Daily Reports\Reno Reps
\72610.xls","_Output" <--And here
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "False","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 2
Set Info = cvsSrv.Reports.Reports("Historical\Designer\CS Agent
Summary by Day adj")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\CS Agent Summary by Day
adj was not found on ACD 2.", vbCritical Or vbOKOnly, "Avaya CMS
Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\CS Agent Summary
by Day adj was not found on ACD 2."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = 30
Rep.Window.Left = 60
Rep.Window.Width = 15285
Rep.Window.Height = 11010



Rep.SetProperty "Agent","72610" <--- And Here

Rep.SetProperty "Dates","-1"




b = Rep.ExportData("M:\CentreVuReports\Agent Daily Reports\Reno
Reps\72610.xls", 9, 0, True, True, False) < ----And here





Rep.Quit



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

End If
Set Info = Nothing