Other - Example 1

Sub Example1()
'
' a very simple example of a macro used to obtain totals
' for the column "paidamt"
' 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")
'MsgBox "Paidamt is col: " & i
'MsgBox "cNFile status is " & ofile.ErrStatus
'MsgBox "cnfile error report " & ofile.ErrorReport
Do While ofile.EOF = False
Call ofile.GetRow
sText = ofile.getcol(iPaidAmountColumn)
If IsNumeric(sText) Then
dTotals = dTotals + CDbl(sText)
End If
Loop
Set ofile = Nothing
sFormattedNumber = Format(dTotals, "###,###,###.00")
Application.StatusBar = "Ex1: File totals for " & sTextName & ": " & sFormattedNumber
Application.Cursor = xlDefault
End Sub

Main Page

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

	Other - Example 1
	Benford's Law Downloads Site Map