Other - Example 2

Sub Example2()
'
' obtain totals
' for the column "paidamt" for provider numbers starting with 30
' file is read and then
' the file totals are shown on the Excel status bar
' this is the starting point for more complex examples
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

Application.Cursor = xlWait
ofile.Filename = BASEDIR & "clmdenbp.txt"
sTextName = "paidamt"
Call ofile.OpenFile
iPaidAmountColumn = ofile.getcolno("paidamt")
iProviderNumberColumn = ofile.getcolno("billprov")
'
' total paid amounts for provider numbers beginning with 3404
'
Do While ofile.EOF = False
Call ofile.GetRow
sText = ofile.getcol(iProviderNumberColumn)
If Left(sText, 4) = "3404" Then ' provider number starts with 30
sText = ofile.getcol(iPaidAmountColumn)
If IsNumeric(sText) Then
dTotals = dTotals + CDbl(sText)
End If
End If
Loop
Set ofile = Nothing
sFormattedNumber = Format(dTotals, "###,###,###.00")
Application.StatusBar = "Ex2: File totals for " & sTextName & ": " & sFormattedNumber
Application.Cursor = xlDefault
End Sub

Main Page

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

	Other - Example 2
	Benford's Law Downloads Site Map