Sub Example4() ' ' obtain totals ' for the column "paidamt" for all claims between $10 and $20 ' file is read and then ' the file totals are shown on the Excel status bar ' Dim ofile As New cNFile 'Dim sbuffer As String 'Dim i As Integer Dim sMsg As String Dim sText As String Dim dTotals As Double Dim icol As Integer Dim sTextName As String Dim iPaidAmountColumn As Integer Dim iProviderNumberColumn As Integer Dim sFormattedNumber As String Dim dClaimAmount As Double Application.Cursor = xlWait ofile.Filename = BASEDIR & "clmdenbp.txt" sTextName = "paidamt" Call ofile.OpenFile iPaidAmountColumn = ofile.getcolno("paidamt") iProviderNumberColumn = ofile.getcolno("billprov") ' 'Read the claim file and total all claims between $10 and $0 ' Do While ofile.EOF = False Call ofile.GetRow sText = ofile.getcol(iPaidAmountColumn) If IsNumeric(sText) Then dClaimAmount = CDbl(sText) If dClaimAmount >= 10 And dClaimAmount <= 20 Then dTotals = dTotals + CDbl(sText) End If End If Loop Set ofile = Nothing sFormattedNumber = Format(dTotals, "###,###,###.00") Application.StatusBar = "Ex4: File totals for " & sTextName & ": " & sFormattedNumber Application.Cursor = xlDefault End Sub

 

 

 

 

Main Page

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

Web Page last updated on 04-20-2008 © EZ-R Stats, LLC 2005-2007