合并资产负债表

在企业财务工作中，每个财务周期都要制作资产负债表，周期分为月度、季度、年度。季度报表可由月度报表合并得来，年度报表可由季度报表合并而来。有些大企业有许多部门，各部门也有资产负债表，总公司的资产负债表可由各部门的合并得来。如果由人工来进行这种合并工作，不仅烦琐，还易出错。如果使用程序自动完成这种工作就会既高效又正确。本文将介绍 esProc SPL 编写的资产负债表合并代码示例。esProc 是专业的数据计算引擎，SPL 中提供了完善的 Excel 文件读写函数，做资产负债表合并非常容易。

资产负债表通常如下图：

表中红色字体单元格是由其它单元格数据计算得来的，合并时不用考虑这些格，只需合并黑色字体单元格的数据。

 

1.  不同时段合并

按时段合并时，合并报表的期初数为第一个时段的期初数，期末数为最后一个时段的期末数。如用1、2、3月的资产负债表合并一季度的报表时，期初数为1月的期初数，期末数为3月的期末数。

SPL代码：

	A	B
1	=file("e:/资产负债表/1月.xlsx").xlsopen()
2	=file("e: /资产负债表/3月.xlsx").xlsopen()
3	=file("e: /资产负债表/一季度.xlsx")
4	[C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C20,C21,C24,C25,C27,C29,C30,C31,C34,C35,C36,C40,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F22,F23,F24,F25,F26,F29,F33,F34,F36,F37,F38,F39]
5	for A4	=A2.xlscell(A5,1)
6		=A1.xlscell(A5,1;B5)
7	=A3.xlswrite(A1)

A1   打开1月份的资产负债表

A2   打开3月份的资产负债表

A3   指定合并后的资产负债表文件名

A4   列出要读取期末数的单元格名称

A5-B6   循环读取3月表中A4指定的单元格的期末数，并写入到1月表中的对应格

A7   将合并后的A1保存到A3指定的Excel合并文件中

 

2.   不同部门合并

合并不同部门时，合并报表的期初数为各部门期初数之和，期末数也为各部门期末数之和。

SPL代码示例：

	A	B	C
1	[e:/资产负债表/部门1.xlsx,e:/资产负债表/部门2.xlsx,e:/资产负债表/部门3.xlsx]
2	=file("e:/资产负债表/公司总表.xlsx")
3	=A1.(file(~).xlsopen())
4	[B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B20,B21,B24,B25,B27,B29,B30,B31,B34,B35,B36,B40,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15,C16,C17,C20,C21,C24,C25,C27,C29,C30,C31,C34,C35,C36,C40,E5,E6,E7,E8,E9,E10,E11,E12,E13,E14,E15,E16,E17,E18,E22,E23,E24,E25,E26,E29,E33,E34,E36,E37,E38,E39,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F22,F23,F24,F25,F26,F29,F33,F34,F36,F37,F38,F39]
5	for A4	>v=0
6		for A3	=B6.xlscell(A5,1)
7			>v+=if(C6==null,0,float(C6))
8		if v==0	>A3(1).xlscell(A5,1;null)
9		else	>A3(1).xlscell(A5,1;string(v))
10	=A2.xlswrite(A3(1))

A1   列出各部门资产负债表文件名

A2   指定合并后的资产负债表文件名

A3   打开各部门资产负债表文件

A4   列出要读取数据的单元格名称

A5-C9   循环要读取的单元格，从各部门表中读取当前格数据(没填计0)，并累加到变量v，将累加后的v写入到第一个部门表的对应格中(v为0时将单元格置空)。

A10   将保存了合并后值的第一部门表保存到A2指定的Excel合并文件中