Cash Recovery

Sub RunSubTotals()
'
' run the subtotal report by the specified sort keys
'
Dim oEZ As New cEZ
oEZ.AnalyzeSU _
Infile:=BASEDIR & "clmdensp.srt", _
Report:=BASEDIR & "clmdensp.sub", _
SortKeys:="billprov + a", _
Column:="paidamt"

' macro to load a report file to a worksheet
LoadSheet _
ToSheet:="$Debug", _
Infile:=BASEDIR & "clmdensp.sub"

Set oEZ = Nothing
End Sub

Main Page

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