例题描述

某文件目录里有多个企业资产负债表，其中一个如下图所示：

 

现在需要从这些资产负债表中提取某些数据进行财务分析，目标表如下图所示：

 

第1列是需要提取的数据名称，各资产负债表中的数据分别依次提取到后面的列中。由于货币资金科目各企业报表中名称不一致，所以需要模糊查找，只要名称中含有“货币”即可。

实现步骤

1、 运行集算器

可去润乾官网下载职场版，同时下载一个免费授权就够了，首次运行时会提示加载。

2、 编写脚本

 

把代码列出来看得清楚点

 

A1 定义数据文件保存的目录变量dir

A2 打开目标汇总文件“财务分析.xlsx”为Excel对象

A3 列出目录中所有的资产负债表文件(以zc开头的)

D3 定义要提取的数据名称序列

A4 循环目录中的资产负债表

B4 打开当前循环的资产负债表为Excel对象

B5 循环要提取的数据项目

C5 循环当前资产负债表的每一行

D5 循环当前资产负债表的每一列

E5 读取当前行列的单元格内容

E6-F8 如果单元格内容匹配当前数据项，则读出它右边第2个单元格内容，填入目标报表Excel对象的相应单元格，然后结束C5开始的循环，继续查找下一项数据。

A9 把汇总好数据的目标Excel对象A2保存到目标文件。

3、 按F9运行这段程序，打开目标文件财务分析.xlsx，可以看到本文开头所要求的财务数据。

【附件】 cwfx.zip