[分享]VBA工资管理银行上报文件核对程序

weiguoyin868

<p>因工资发放的需要，经常要给银行提供上报盘，要求提供一个文本文件，格式：<br/>单位号&nbsp;CHAR(5)<br/>流水号 CHAR(5)<br/>用户名&nbsp;CHAR(8)&nbsp;<br/>帐号 CHAR(19)&nbsp;<br/>时间（CHAR(6)&nbsp;<br/>在上报过程中，经常出现上报错误，如：有空行，位数不对，金额不对等，特编写<br/>了这个核对程序。其实现功能：<br/>&nbsp;&nbsp;&nbsp; 1、查行的位数不对，银行格式行总长52位。<br/>&nbsp;&nbsp;&nbsp;&nbsp;2、查出多余的空行数。<br/>&nbsp;&nbsp;&nbsp; 3、能计算出上报的金额总数。<br/>&nbsp;&nbsp;&nbsp; 包含程序文件和一个模拟的上报文本文件</p><p>主要代码：<br/>Dim filename As String<br/>Dim Result As String<br/>Dim ReadOut As String<br/>Dim fd As FileDialog<br/>Dim Hsum, Changd, I&nbsp; As Integer<br/>Dim Sfje As Double<br/>On Error GoTo esc '错误处理<br/>Set fd = Application.FileDialog(msoFileDialogFilePicker)&nbsp; '定义文件对象<br/>&nbsp;&nbsp;&nbsp; fd.AllowMultiSelect = False<br/>&nbsp;&nbsp;&nbsp; fd.Filters.Clear<br/>&nbsp;&nbsp;&nbsp; 'Filters.Add "所有 WORD 文件", "*.doc", 1<br/>&nbsp;&nbsp;&nbsp; fd.Filters.Add "文本文件", "*.TXT,*.XLS"<br/>&nbsp;&nbsp;&nbsp; fd.InitialFileName = "d:\"<br/>&nbsp;&nbsp;&nbsp; Result = ""<br/>&nbsp;&nbsp;&nbsp; Hsum = 0<br/>&nbsp;&nbsp;&nbsp; Sfje = 0<br/>&nbsp;&nbsp; If fd.Show = -1 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename = fd.SelectedItems(1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filenum = FreeFile()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Open filename For Input As #filenum</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; While Not EOF(filenum)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Input #filenum, Result<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I = I + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Changd = chkGb(Result)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Changd &lt;&gt; 52 Then&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "第" &amp; I &amp; "行字符串长度有问题," &amp; Changd<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Result = "" Then&nbsp; '判断空行<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hsum = Hsum + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sfje = Sfje + Round(Mid(Right(Result, 15), 1, 9) / 100, 2) '计算金额<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Wend<br/>End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Hsum &gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "有" &amp; Hsum &amp; "行无效空行"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>Cells(2, 2).Value = I<br/>Cells(3, 2).Value = Changd<br/>Cells(4, 2).Value = Hsum<br/>Cells(5, 2).Value = Sfje</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "检查完毕"<br/>esc:</p><p><br/>End Sub<br/><br/> AaenJLaq.rar (11.26 KB, 下载次数: 80)

2008-5-4 22:15 上传

点击文件名下载附件
[分享]银行上报文件核对程序

<br/></p>

[此贴子已经被作者于2008-5-5 11:15:05编辑过]