基于Excel VBA的动态数据透视表技术在医院会计工作中的高效应用.pdfVIP

2008年1月 中 国 管 理 信 息 化 Jan．，2008 第ll卷第1期 China Management Informationization V01．11．No．1 基于Excel VBA的动态数据透视表技术 在医院会计工作中的高效应用 ， 赵 峰，黄先龙，董明宝，谢孝志 (皖南医学院 弋矶山医院，安徽 芜湖 241001) [摘 要】基于ExcelVBA的动态数据透视表技术可满足日常会计工作需求，从而弥补了医院财务软件统计、分析、 汇总等功能的不足。本文利用ExcelVBA自动控制数据透视表技术动态生成医院会计科目试算平衡表。以避免会计 凭证电算化录入工作中的错误，并比对分析医院会计科目总账和明细账数据在一段时间内的变化特征。以便及时、 准确、高效地为领导层提供决策依据 [关键词]Excel；vBA；数据透视表；医院会计 [中图分类号]F232 [文献标识码]A [文章编号]1673—0194(2008)01—0030-03 专门的医院会计电算化软件在处理医院会计数据的 ot)，如图1所示。 过程中实现了流程化，而Excel主要用于实现专门的会计 电算化软件所无法实现的功能。如对医院会计数据的动态 处理、预测、分析、加工、统计汇总等。Excel已经在各医院 会计核算中有不同程度的应用。但大多是基于会计人员手 工操作的，而且多是重复操作，步骤烦琐。这样既影响了工 作效率，又不能快速、准确地生成有价值的会计信息。因此 熟练掌握Excel中内嵌的VBA技术，不但能提高日常会计 工作质量，而且可以Excel VBA加载宏的形式，一次生成 特定的工作模板，多次使用，提高了会计日常工作效率，为 确保会计信息质量以及试算平衡提供了最基础的保障。本 文利用Excel VBA自动控制数据透视表技术动态生成医 图1在VBA编辑器中添加通用模块 院会计科目试算平衡表，以避免电算化会计凭证录入工作 中的错误，并比对分析医院会计科目数据在一段时间内的 以下是生成会计科目试算平衡表的通用模块： 变化特征，以便及时、准确、高效地为领导层提供决策依 Option Explicit 据。 Sub SetUpTfialBalance() 1 资料来源 On Error Resume Next 资料来源于某医院2006年AC90数据库，本例提取 ActiveWorkbook5heets．Add 了会计原始记账凭证32 679条记录。 Dim eonnstring As String 2 关键技术与方法 connstring=”ODBC；DRIVER=sQL Native Client； 2 1数据源的获取 SERVER=(1oca1)；”＆．IUID=用户名；PWD=登录密码： TrustedConnection=Yes；APP=Microsoft Office 2003：’． Excel内嵌的VBA具有强大的后台数据库连接功能， _ 可支持Oracle、SQL Server大型数据库系统，直接读取 “WSID=；DATABASE=数据库名：’‘，／根据单位实际情况填 ACg0、用友等财务系统后台数据库。本文在VBA编辑器工 人后台数据库连接用户名、密码以及数据库名。 程中添加两个通用模块 (SetUp Trial Balance,SetUp Piv． Dim sqlstring As String sqlstring=”select from