◆刘璐 谢勇/谷城县审计局

笔者在对某投资公司进行损益审计时发现，该公司使用“神州易桥财税大管家”进行电子账务处理，此款财务软件相当小众，在网络上基本搜索不到有用信息，前台生成的DBB数据库文件无法被AO识别。审计时只能要求先提供基础表数据，但查阅时发现该软件自动生成的科目余额表是按月进行全年汇总，某些有期初余额的科目并不在1月反映，多次辅助导入的数据与资产负债表总是不一致。焦头烂额之际只能另辟蹊径，鉴于明细账数据表里某些单元格可以反映科目的期初余额和方向，笔者想到利用EXCEL的“遥控器”——VBA，实现高效准确地提取每个工作表特定单元格内容。接下来就是对这小众软件特异数据表数据标准化的探索之路。

一、基础数据查看分析

1.统计工作表个数，点击“公式”→“名称管理器”，如图1所示。

图1 打开名称管理器

2.新建公式，名称自定，“引用位置”输入“=GET.WORKBOOK(1)”。

3.在表中任意单元格输入公式“=COUNTA(TJ)”，如图2所示。

图2 子表个数

统计结果可以看到明细账中存在559个工作表（已包含新增的4个子表，实际源表中555个子表）。

4.查看发现各个工作表名称存在科目代码+科目名称、科目代码、默认表名3种命名方式（如图3所示），但结构相同（如图4所示），符合批量提取的条件。

图3 表名结构

图4 各个子表结构

二、利用VBA批量提取所有工作表中特定单元格内容

1.在所有工作表最后添加一个工作表，取名为“汇总”。利用快捷键Alt+F11，调出代码窗口，添加模块，编写代码如……