Cash Recovery

Sub RunDups()
'
' run the duplicate report by the specified sort keys
'
' InFile - name of input file to be analyzed
' Report - name of output file to contain the report
' SortKeys - specifies how the input file is sorted
' Column - name of the column whose values are to be analyzed
' Optional MaxRows - maximum number of input records to process
' Optional FileSpec - specification for columns in a print file
Dim oEZ As New cEZ
oEZ.Dups _
Infile:=BASEDIR & "clmdensp.txt", _
Report:=BASEDIR & "clmdensp.dup", _
MAXROWS:=0, _
SortKeys:="billprov + a"
' macro to load a report file to a worksheet
LoadSheet _
ToSheet:="$Debug", _
Infile:=BASEDIR & "clmdensp.dup"
Set oEZ = Nothing
End Sub

Main Page

Complete Auditor resources
Links \| Privacy Policy \| FAQ \| Downloads \| Trademarks