Excel 下自动批量生成通用凭证的方法(1).docVIP

全国中文核心期刊·财会月刊阴 Excel下自动批量生成通用凭证的方法 冯迎春 渊浙江商业职业技术学院财会金融学院 杭州 310053冤 【摘要】 本文以用友 T3 为例，利用 EXCEL 的 VBA 功能，通过财务软件所提供的凭证导入功能，完成不同系统数据间 的无缝衔接，为中小企业财务系统充分利用业务系统数据提供一种思路。 【关键词】 中小企业 会计信息化 自动凭证 EXCEL 应用 随着 IT 技术的日益普及和发展，企业信息化水平不断提  凭证表结构 高，会计信息系统逐渐由会计电算化阶段向会计信息化阶段 发展。本文以用友 T3 为例，通过 EXCEL 的 VBA 功能，快速  行 列 A B C D E 将业务系统导出到 EXCEL 的数据进行转换，实现了业务系 1 首行 借:库存商品 贷:应付账款 贷:商品进销差价 说明 统数据与财务系统的无缝衔接，从而大大提高财务系统利用 业务系统数据的能力，也为财务部门对各类业务系统进行简 单系统集成提供一种思路。 一 尧利 用 通 用 批 量 自 动 凭 证 将 业 务 系 统 数 据 快 速 导 入 财 务 系 统 （一）设计表格 进入 EXCEL，建立二张工作表，表名分别为“单据”和“凭 证”。二表结构分别如下： 1.“单据”表。 2 凭证输出 3 V800 4 001 5 某单位 6 单据!G 7 F1日期F2类别 8 F3凭证号F4附单据数 9 F5摘要F6科目编码 10 F7借方F8贷方  单据!A 转 单据!I 1 单据!J 1405 单据!F  单据!A 转 单据!I 1 单据!J 2202 单据!D  单据!A 转 单据!I 1 单据!J 1407 单据!E 凭证日期 凭证类别 凭证号 附单据数 记账凭证摘要 会计科目编码 借方本位币金额 贷方本位币金额 数量 列 行 1 日期 2 2012-7-3 3 2012-7-3 B C D E F G H I 供应商代码 单据编号 进价 差异 计划价 年 月 凭证号 043001 001849 1 350 120 1 470 2012 7 1 00101 000561 1 780 932 2 712 2012 7 2 J 摘要 采购001849 采购000561 11 F9数量F10外币 12 F11汇率 13 F12制单人 14 F13结算方式 15 F14票号  A会计  A会计 单据!C  A会计 外币金额 制单的操作员姓名 2.“凭证”表结构设计如右栏所示。 （1） 凭证”表中 A 列数据对应于生成的交换文件首行， 内容说明在 E 列，A1:A11 有区别，其余相同。 （2） 凭证”表中 B 至 D 列为该笔业务的借贷关系列，根 据记账凭证内容按需填列，如本例对应关系为： 16 F15发生日期 17 F16部门编码 18 F17个人编码 19 F18客户编码 20 F19供应商编码  单据!A 单据!B 单据表 D列院进价 E列院差异 F列院计划价 凭证表 C列院贷院应付账款 D列院贷院商品进销差价 B列院借院库存商品 （3） 凭证”表中 A 至 D 列 以“ ”开 头的，表 示 需从“ 单 据”表相应的列中取数，能自动根据“单据”表中行的变化而变 化。因 EXCEL 中不认可“ 单据!A”，故需在“ ”前面加空格， 改写为“ 单据!A”。 （二）在“凭证”表中增加一个“生成凭证”按键 1. 打开“控件工具箱”，单击“命令按钮”EXCEL2010 需 选中“文件—选项—自定义功能区—开发工具”。 21 F20业务员 22 F21项目编码 23 F49账套号 24 F51会计年度 25 F52会计期间 26 F59行号 27 F60外币名称 28 F61单价 29 F68项目大类编码  001 单据!G 单据!H 1  001 单据!G 单据!H 2  001 单据!G 单据!H 3  按顺序从1递增 援 上旬窑61窑阴 阴财会月刊·全国优秀经济期刊 2. 在“凭证”表中空白处（如 G2 位置）画出按钮的形状。 3. 在按钮上单击右键，选择“属性”，将“Caption”的值改 为“生成凭证”。  查”二项，然后单击“凭证引入”，软件将检查数据的正确性，检 查正确后将提示“数据全部通过检查，是否开始引入？”，选择 “是（Y）”即可将所有凭证导入 T3 指定账套。 4. 双击按钮，在出现的 VBE 窗口中输入： 二 尧本 办 法 的 优 点 maxr1 Sheets（单据）.Range（A65536）.End（x