固定格式表格对位汇总
有N个格式完全相同的Excel文件，要把这些文件汇总起来成为一个文件，数字单元格的值为各文件中的同名数字单元格之和。
举例
总公司有收到各分公司发来的资产负债表，其中某分公司的表格如下图所示(共有37行，图中只列出14行)：
现在需要用各分公司的表格汇总出总公司的资产负债表。
编写SPL脚本：
A |
B |
C |
|
1 |
=directory@p("e:/zcfzb/zc*.xlsx") |
||
2 |
=A1.(file(~).xlsopen()) |
||
3 |
=to(4,37) |
[B,C,E,F] |
=A3.(B3.(~/A3.~)).conj() |
4 |
for C3 |
>v=null |
|
5 |
for A2 |
>v+=number(B5.xlscell(A4,1)) |
|
6 |
>A2(1).xlscell(A4,1;string(v)) |
||
7 |
=file("e:/zcfzb/total.xlsx").xlswrite(A2(1)) |
||
A1 列出文件夹中要汇总的所有以zc开头的资产负债表文件名，选项@p表示列出文件全路径
A2 打开A1中列出的文件为Excel对象
A3 指定要汇总的数字单元格的行号范围4-37
B3 指定要汇总的数字单元格的列号B,C,E,F
C3 用A3行号和B3列号拼出所有要汇总的数字单元格的名称
A4 循环C3中所有要汇总的单元格
B4 定义汇总值变量v
B5 循环所有分公司资产负债表
C5 从当前分公司资产负债表中读出当前汇总单元格的值，转成数值后累加到v
B6 将完成累加后的v保存到第1个分公司的资产负债表中
A7 将第1个分公司的资产负债表保存到总公司资产负债表total.xlsx
