合并资产负债表

在企业财务工作中,每个财务周期都要制作资产负债表,周期分为月度、季度、年度。季度报表可由月度报表合并得来,年度报表可由季度报表合并而来。有些大企业有许多部门,各部门也有资产负债表,总公司的资产负债表可由各部门的合并得来。如果由人工来进行这种合并工作,不仅烦琐,还易出错。如果使用程序自动完成这种工作就会既高效又正确。本文将介绍 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合并文件中


请使用浏览器的分享功能分享到微信等