使用Excel,VBA生成供应链凭证 金蝶k3供应链凭证生成
［摘 要］ 从物资供应链系统中导出物资收发存Excel数据，运用Excel VBA编写程序生成符合财务软件要求的导入数据，完成大量供应链凭证录入工作，实现数据准确、工作简化的目的。
［关键词］ Excel VBA；导入；财务软件；供应链；凭证
doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 17. 002
［中图分类号］ F232 ［文献标识码］ A ［文章编号］ 1673 - 0194（2012）17- 0003- 06
在财务工作中经常与Excel打交道，如果再学习一些ＶＢＡ知识，就可以帮助我们解决工作中需要解决的问题。ＶＢＡ是Oｆｆｉｃｅ组件（主要是Excel）的内置语言，是应用程序开发语言Ｖisual Ｂasic 的子集，它易于学习掌握，是一种自动化语言，使常用的程序自动化，创建自定义的解决方案，可以将Excel作为开发平台实现应用程序。许多财务软件都有Excel接口，将业务活动、采购活动等输入的信息自动导入，生成总账会计报表，取消输入凭证这一繁琐的过程，替代传统手工操作，实现数据准确、输入迅速快捷。使凭证操作员的录入工作简化，工作重心转移到财务管理的其他方面。
1 基础信息梳理
我院已有物资供应链软件，平时使用该软件管理物资收发存，每月结账后可以从该软件的数据库中导出符合要求的Excel数据。或者使用ＡＤＯ数据库访问技术链接ＳＱＬ数据库，取得所需的Excel数据。医院财务软件使用金蝶ＥＡＳ，会计核算时要求物资数据入库要核算到应付账款——供应商，物资数据领用要能核算到使用科室。通过Excel ＶＢＡ程序设计自动应用程序，将已有的数据生成符合金蝶ＥＡＳ系统标准凭证导入要求的数据格式，可以满足会计核算要求。
经统计，我院目前有１．２万条四级明细物料。物料编码规则是四级９位，即第一级１位，第二级１位，第三级３位，第四级４位，相同类型的物料都归类到同一三级物料下。如果给最明细物料（即四级明细物料）添加上财务信息，程序运行时会影响其速度，而三级物料（约１ ３８０条）已经归纳了相同的财务处理信息，因此可使用三级物料来作为程序的基础信息。此外，若同一物料的使用部门不同则核算的会计科目也有所不同。按照新的《医院财务制度》和《医院会计制度》的规定以及《上海市医疗机构医疗服务项目和价格汇编（２０１０版）》中的“可另收费的一次性使用医疗器械目录”中的明细分类和解释，会计科目“医疗业务成本”下设有“一次性医疗器械”，明细内容有：手术器械类、植入材料和人工器官、各类介入器械、医用材料及高分子生物材料、口腔材料、其他。为能准确核算，在三级物料中将增设“手术器械类”等类别。对现有的四级明细物料进行校对，将相同的财务信息归类在同一三级物料下。建立《三级物料表》给物料明细中添加上财务信息，该表中有以下９列：“三级物料代码”、“三级物料名称”、“存货科目代码”、“管理费用科目代码”、“管理费用支出经济分类＿编码”，“管理费用支出经济分类＿名称”、“医疗业务成本科目”、“医疗业务成本支出经济分类＿编码”、“医疗业务成本支出经济分类＿名称”。其中“存货科目代码”是物料入库时的借方科目代码，领用时的贷方科目代码；“管理费用科目代码”、“医疗业务成本科目”是物料领用时借方科目代码；“管理费用支出经济分类＿编码”、“医疗业务成本支出经济分类＿编码”是借方科目辅助账核算项目编码。
此外，如果物资供应链软件中的科室设置与金蝶ＥＡＳ系统中的核算单元不一致，还需做一个核算单元对应表。
经过梳理后的三级物料格式见表1（节选）。
2 生成物料入库凭证
生成物料入库凭证时涉及3个工作表，分别是“三级物料”、“供应链入库”、“凭证”。将物资供应软件中的入库数据导出后拷贝到“供应链入库”工作表中，物资供应链入库数据要包含“供货单位代码”、“供货单位名称”、“发票号”、“资产代码”、“金额”等数据项。
（１）对物资供应链入库数据中的“供货单位名称”和“发票号”进行排序，为以后同一家供货单位的相同发票号生成在同一张入库凭证内做准备。
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２：＝ｘｌＡｓ
ｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ
ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ
ＳｏｒｔＮｏｒｍａｌ，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ
（2）为每条物料添加上存货科目代码，作用在于可以分清该物料入库时核算的库存物资科目。
ｍ ＝ Ｓｈｅｅｔｓ（＂三级物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“三级物料”数据表的记录数
ｐ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供应链入库”数据表的记录数
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存货科目代码＂
Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ
ｚｃｄｍ ＝ ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｐ＂ ＆ ａ）．Ｖａｌｕｅ， １， ５））
Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ
ｓｊｄｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂三级物料＂）．Ｒａｎｇｅ（＂Ａ＂ ＆ ｂ）．Ｖａｌｕｅ）
Ｉｆ ｚｃｄｍ ＝ ｓｊｄｍ Ｔｈｅｎ
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三级物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ）．Ｖａｌｕｅ