主题：求一新建帐套的公式

我看别的财务软件都有新建帐套的功能，我也想做，就不知易表新建帐套是什么含义？假设我已建立好了所有帐表包括一张单位信息表，想法是当你录入单位信息后点击新建帐套按钮，就建立该单位的帐套，文件名就是从信息表中读取的单位名称并保存在指定的文件夹下（该文件夹是预先设制的），不知这样该如何做，用什么公试？请各位老师教教我本人先行谢过了！

做好一个易表文件，新建帐套的时候将此文件复制一份，并重命名为新帐套名称，然后将里面的数据清空就行了

将当前文件另存为一个新文件，然后进行期抹余额结转。

-=-=-=- 以下内容由 还不错 在 2007年08月02日 04:31pm 时添加 -=-=-=-
如果是新单位，做系统初始化，清空该清空的数据。然后，录入新单位的信息。

谢谢老师。我还是想问是用BackupFile()还是用Save()如果新增单位怎么处理？谢谢

参考下面公式：

if([记账凭证!Rows]>1,msgbox("有未记账凭证,不能进行年末结转工作!",0),if(username<>"主管会计" And username<>"研制者",msgbox("你无权进行年末结转工作!",0) And OpenWindow(1) ,msgbox("请输入新年度文件名称!",0) And do(338) And SetCellText("系统说明",row,"年度",text(number([年度])+1)) And SetCellText("系统说明",row,"建账日期",[年度]+"-01-01") And ClearGrid("记账凭证") And ClearGrid("已记账凭证") And ClearGrid("记账凭证明细表") And ClearGrid("记账凭证汇总表") And ClearGrid("期间费用统计表") And ClearGrid("总账") And ClearGrid("明细账") And ClearGrid("多栏账") And ClearGrid("生产成本-本年发生") And ClearGrid("年初余额") And OpenGrid("年初余额") And AppendFor("期末余额","科目编码,科目名称,明细科目,借贷,金额,科目类别,现金标记","科目编码,科目名称,明细科目,借贷,金额,科目类别,现金标记") And DelFor("年初余额","金额","=","") And DelFor("年初余额","科目名称","=","") And SetColFormula("年初余额","日期","[系统说明!建账日期]") And RecalcCol("年初余额","日期") And RecalcCol("年初余额","凭证号") And RecalcCol("年初余额","项目核算") And ClearGrid("年初余额汇总") And ClearGrid("期未余额") And ClearGrid("期未余额汇总") And RecalcCol("年初余额","摘要") And ClearGrid("生产成本-年初余额") And OpenGrid("生产成本-期末余额") And ClearSubtotal() And OpenGrid("生产成本-年初余额") And AppendFor("生产成本-期末余额","项目名称,成本项目,金额,借贷,月份","项目名称,成本项目,金额,借贷,月份") And DelFor(GridName,"金额","=","") And RecalcCol("生产成本-年初余额","凭证号") And RecalcCol("生产成本-年初余额","摘要") And ClearGrid("生产成本-期末余额") And ClearGrid("应付账款-年初余额") And OpenGrid("应付账款-期末余额") And ClearSubtotal() And OpenGrid("应付账款-年初余额") And AppendFor("应付账款-期末余额","项目名称,年份,统计标志,借贷,金额","项目名称,年份,统计标志,借贷,金额") And DelFor(GridName,"金额","=","") And RecalcCol("应付账款-年初余额","凭证号") And RecalcCol("应付账款-年初余额","摘要") And OpenGrid("原材料-本年发生") And UnLockAll() And DelFor("原材料-本年发生","出库标记","=",-1) And DelFor("原材料-本年发生","借贷","=",0) And OpenGrid("应付账款-本年发生") And UnLockAll() And DelFor("应付账款-本年发生","借贷","=",-1) And DelFor("应付账款-本年发生","付款标记","=",-1) And DelFor("备查账","标记","=",-1) And ClearGrid("期间费用") And ClearGrid("生产成本") And ReplaceFor("资产负债表","资产_年初数","") And ReplaceFor("资产负债表","资产_期未数","") And ReplaceFor("资产负债表","负债及所有者权益_年初数","") And ReplaceFor("资产负债表","负债及所有者权益_期未数","") And ReplaceFor("利润表","本月数","") And ReplaceFor("利润表","本年累计数","") And ReplaceFor("利润分配表","本年实际","") And ReplaceFor("现金流量表","金额","") And ReplaceFor("[补充资料]","金额","") And ReplaceFor("财务指标","指标值","") And openwindow(5) And msgbox("年未结转已完成,请进行审核!",0) And OpenGrid("年初余额",0) And OpenWindow(0)))

谢谢老师，已收藏了，真够复杂的，真要化点时间好好消化消化了。谢谢