利用UFO報(bào)表批處理制作合并報(bào)表

1、精選優(yōu)質(zhì)文檔-傾情為你奉上利用UFO報(bào)表批處理制作合并報(bào)表2008-1-281.報(bào)表路徑：先把路徑列出，大家稍微看一下。D:合并報(bào)表你的下載權(quán)限 0 低于此附件所需權(quán)限 1, 你無(wú)法查看此附件主要有三個(gè)內(nèi)容你的下載權(quán)限 0 低于此附件所需權(quán)限 1, 你無(wú)法查看此附件合并報(bào)表編程過程說明：1.由于第一次編合并報(bào)表，所以很多東西不知道，那么就查資料，主要參考三個(gè)資料，一個(gè)是UFO的二次開發(fā)幫助文件，第二個(gè)是孫勇寫的UFO報(bào)表高級(jí)應(yīng)用培訓(xùn)講義，第三個(gè)是用友報(bào)表的PDF幫助2.客戶的要求：客戶要求將12張資產(chǎn)負(fù)債表（當(dāng)然還有很多其他的表）做合并，這12張分別是不同的下屬單位，由于在開始實(shí)施的時(shí)候，就考

2、慮到合并報(bào)表的事情，所以但是在建立帳套的時(shí)候，要求所有單位的會(huì)計(jì)科目（包括輔助核算），報(bào)表格式都必須一致，所以這12張表的格式都是一模一樣的。開始動(dòng)手了1.現(xiàn)在第一步是建立一張合并報(bào)表模板，可以直接用現(xiàn)有的資產(chǎn)負(fù)債表模板，然后把公式清空，報(bào)表文件為“D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep”2.報(bào)表歸類：我們假設(shè)合并兩張報(bào)表就可以了，zt003和zt013，路徑如下：D:合并報(bào)表D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep D:合并報(bào)表zt0132008資產(chǎn)負(fù)債表.rep簡(jiǎn)單的合并方式：將zt013的資產(chǎn)負(fù)債表的對(duì)應(yīng)的單元格與ZT003對(duì)應(yīng)的單元格相加。批處理放在以下文件夾：D:合

3、并報(bào)表批處理2008我們先簡(jiǎn)單建立一個(gè)批處理，用以實(shí)現(xiàn)兩個(gè)單元格的簡(jiǎn)單合并，文件命名為“zt003zcfzb.shl”批命令如下：LET C7=C7+D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep-C7 RELA 年 WITH D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep - 年,月 WITH D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep - 月起碼知道以上的命令可以實(shí)現(xiàn)將C7單元格的數(shù)據(jù)加上“D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep”C7的數(shù)據(jù)。但是如果這樣做的話，每一個(gè)單元格就要一條語(yǔ)句，而且如果有多張表的話，就更加復(fù)雜，而且如果到時(shí)候要修改的話，比如到了2009年的話，

4、每一條都要改一下，甚至如果單元格發(fā)生變化，要改的話，那不是要瘋掉！所以在想能不能通過變量來實(shí)現(xiàn)，便于后續(xù)修改。 經(jīng)過翻查資料，大概知道了變量的應(yīng)用，然后就來實(shí)現(xiàn)吧。 第一步，把報(bào)表路徑變量化，可以直接設(shè)定一個(gè)變量&rep，然后賦值，語(yǔ)句如下：let &rep=D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep 那么單元格的賦值就可以這樣來寫：LET C7=C7+&rep-C7 RELA年 WITH &rep-年,月 WITH &rep-月 這樣寫可以減少修改報(bào)表路徑的問題，至少改個(gè)路徑變量值，其他就不用改了，相對(duì)來說比較方便一些，但是，問題是單元格也是比較麻煩，一條一來，有沒有什么其他辦法呢？

5、睡覺的時(shí)候突然想到能否用循環(huán)來處理，如果可以就好辦多了，于是就開始實(shí)施，用while循環(huán)，但是問題是如何來表示列號(hào)和行號(hào)呢？ 經(jīng)過翻查資料，有一個(gè)意外的發(fā)現(xiàn)：你的下載權(quán)限 0 低于此附件所需權(quán)限 1, 你無(wú)法查看此附件有了這個(gè)意外的發(fā)現(xiàn)之后，我就想，干脆把路徑、列號(hào)、行號(hào)都用變量表示算了，看看情況如何，代碼如下：/設(shè)置報(bào)表路徑、合并起始列、起始行l(wèi)et &rep1=D:合并報(bào)表let &rep2=zt003let &rep3=2008let &rep4=資產(chǎn)負(fù)債表.replet &col0=3let &row0=7/設(shè)置報(bào)表路徑let &rep=&rep1+&rep2+&rep3+&rep4/

6、設(shè)置列號(hào)let &col=&col0/設(shè)置行號(hào)let &row=&row0/通過循環(huán)合并數(shù)據(jù)，合并C755的單元格while &col=4while &row!&col#&row rela 年 with &rep-年,月 with &rep-月let &row=&row+1endlet &row=&row0let &col=&col+1end做了以上變動(dòng)之后，至少修改起來事比較簡(jiǎn)單，可以把這段代碼保存為“zt003zcfzb.shl”通過以上的批處理命令，我們?cè)趫?zhí)行此批命令的時(shí)候，就可以實(shí)現(xiàn)把一個(gè)表的C755的單元格與ZT003的對(duì)應(yīng)的單元格相加?，F(xiàn)在的情況有所變化，我們有兩種需要合并的報(bào)表，

7、比如D:合并報(bào)表zt0032008資產(chǎn)負(fù)債表.rep D:合并報(bào)表zt0132008資產(chǎn)負(fù)債表.rep 最終合并到以下表：D:合并報(bào)表01母公司2008資產(chǎn)負(fù)債表.rep你的下載權(quán)限 0 低于此附件所需權(quán)限 1, 你無(wú)法查看此附件如何實(shí)現(xiàn)呢？如何來利用之前做的批命令呢？難道需要把批命令重復(fù)寫一遍嗎？ 突然想到，能否通過調(diào)用批命令文件，相當(dāng)于編程里面的“include”，那問題就可以解決了，也就是說，將一個(gè)合并的批命令寫成一個(gè)批命令文件，然后來調(diào)用，只要有需要合并的時(shí)候，就調(diào)用此批命令，問題就可以解決了，減少重復(fù)工作，同時(shí)容易修改。在批處理里面是有一個(gè)調(diào)用批命令的命令，就是用”DO”命令。我們把

8、之前做的“zt003zcfzb.shl”重新另存為“zcfzb_hbbb.shl”，路徑如下:DO D:合并報(bào)表批命令2008 zcfzb_hbbb.shl 然后我們建立一個(gè)“zcfzb_main.shl”的批處理文件來調(diào)用。代碼如下：/首先進(jìn)入數(shù)據(jù)狀態(tài)DATA /報(bào)表取數(shù)DO D:合并報(bào)表批命令2008zcfzb_hbbb.shl 把此文件放在：D:合并報(bào)表00批命令01母公司2008 zcfzb_main.shl 為了能夠在進(jìn)入報(bào)表的時(shí)候，將最終合并的報(bào)表的數(shù)據(jù)先清空，同樣我們做一個(gè)清空的批處理命令。/清空數(shù)據(jù)，合并數(shù)據(jù)前先把數(shù)據(jù)清空。CLEAR C755CLEAR G7:H55 把文件命

9、名為“D:合并報(bào)表批命令2008zcfzb_clear.shl”以備調(diào)用 然后我們對(duì)“zcfzb_main.shl”的批命令再次修改，加入清除數(shù)據(jù)的批處理。/首先進(jìn)入數(shù)據(jù)狀態(tài)DATA /清空數(shù)據(jù)DO D:合并報(bào)表批命令2008zcfzb_clear.shl/報(bào)表取數(shù)DO D:合并報(bào)表批命令2008zcfzb_hbbb.shl 那么以后不管有多少?gòu)埍?，資產(chǎn)負(fù)債表，損益表等等，只要每一張表都保存相應(yīng)的三個(gè)批處理（主命令、清空命令、合并命令）。只是每張表需要修改的地方就是將“zcfzb_hbbb.shl”里面的參數(shù)做一些修改。比如路徑、文件名稱、年份，列名等等。但是能否有更好的辦法呢？能否將合并數(shù)據(jù)

10、作為一個(gè)通用的模板，用來調(diào)用呢？然后把變量的賦值放在主程序中進(jìn)行，這樣不是更好嗎？模型：這個(gè)時(shí)候，我們開始做統(tǒng)一規(guī)劃了：D:合并報(bào)表批命令2008主程序（主批處理）：zcfzb_main.shl子程序（清空數(shù)據(jù)）：zcfzb_clear.shl子程序（合并報(bào)表）：zcfzb_hbbb.shl先把主程序列出：主程序（主批處理）：zcfzb_main.shl/-程序開始-/合并報(bào)表/合并報(bào)表說明：/zt003廣海本部/-首先進(jìn)入數(shù)據(jù)狀態(tài)-/-把變量清空，然后要求輸入關(guān)鍵字。DATA free allif 年=0 disp 請(qǐng)先輸入關(guān)鍵字returnelse/-設(shè)置批處理命令的路徑。let &shl

11、01=D:合并報(bào)表00批命令let &shl02=01母公司let &shl03=2008let &shl04=&shl01+&shl02+&shl03let &shlclr=zcfzb_clear.shllet &shlhb=zcfzb_hbbb.shllet &shlclr= &shl04+&shlclrlet &shlhb= &shl04+&shlhb/-清空數(shù)據(jù)-DO &shlclr/-初始化取數(shù)報(bào)表-let &rep1=D:合并報(bào)表let &rep2=zt003 / 設(shè)置取數(shù)帳套let &rep3=2008let &rep4=資產(chǎn)負(fù)債表.replet &col01=3/設(shè)置列起始值C

12、let &colmax01=4/設(shè)置列循環(huán)最大值Dlet &col02=7/設(shè)置列起始值Glet &colmax02=8/設(shè)置列循環(huán)最大值Hlet &row01=7/設(shè)置行起始值7let &rowmax=55/設(shè)置行循環(huán)最大值55/-報(bào)表取數(shù)-zt003let &rep2=zt003 / 設(shè)置取數(shù)帳套let &row0=&row01/設(shè)置行起始值/-01.分列取數(shù)1let &col0=&col01/設(shè)置列起始值 Clet &colmax=&colmax01/設(shè)置列循環(huán)最大值 DDO &shlhb/-02.分列取數(shù)2let &col0=&col02/設(shè)置列起始值 Glet &colmax=&co

13、lmax02/設(shè)置列循環(huán)最大值HDO &shlhb/-END-/-保存報(bào)表-/savefree allend/第一層IF的結(jié)尾清空命令：zcfzb_clear.shl/清空數(shù)據(jù)CLEAR c755CLEAR g7:h5合并命令：zcfzb_hbbb.shl/-合并報(bào)表-/設(shè)置報(bào)表路徑、合并起始列、起始行l(wèi)et &rep=&rep1+&rep2+&rep3+&rep4let &col=&col0let &row=&row0/通過循環(huán)合并數(shù)據(jù)while &col=&colmaxwhile &row!&col#&row rela 年 with &rep-年,月 with &rep-月let &row

14、=&row+1endlet &row=&row0/重新置位，否則行的循環(huán)無(wú)法進(jìn)行l(wèi)et &col=&col+1end以后如果需要合并報(bào)表，其實(shí)要改的就是zcfzb_main.shl文件里面的兩個(gè)段落，一個(gè)是“路徑設(shè)置”，一個(gè)是“報(bào)表取數(shù)”。比如需要修改批命令的路徑和批命令對(duì)應(yīng)的文件名，則改以下藍(lán)色部分。/-設(shè)置批處理命令的路徑。let &shl01=D:合并報(bào)表00批命令let &shl02=02合并口徑let &shl03=2008let &shl04=&shl01+&shl02+&shl03let &shlclr=zcfzb_clear.shllet &shlhb=zcfzb_hbbb.s

15、hllet &shlclr= &shl04+&shlclrlet &shlhb= &shl04+&shlhb 如果需要修改需要合并的報(bào)表，那么就改以下內(nèi)容：/-報(bào)表取數(shù)-zt003let &rep2=zt003 / 設(shè)置取數(shù)帳套let &row0=&row01/設(shè)置行起始值/-01.分列取數(shù)1let &col0=&col01/設(shè)置列起始值 Clet &colmax=&colmax01/設(shè)置列循環(huán)最大值 DDO &shlhb/-02.分列取數(shù)2let &col0=&col02/設(shè)置列起始值 Glet &colmax=&colmax02/設(shè)置列循環(huán)最大值HDO &shlhb/-END- 如果需要合并的列和行需要修改，則改：/-初始化取數(shù)報(bào)表-let &rep1=D:合并報(bào)表let &rep2=zt003 / 設(shè)置取數(shù)帳套let &rep3=2008let &rep4=資產(chǎn)負(fù)債表.replet &col01=3/設(shè)置列起始值Clet &colmax01=4/設(shè)置列循環(huán)最大值Dlet &col02=7/設(shè)置列起始值Glet &colmax02=8/設(shè)置列循環(huán)最大值Hlet &row01=7/設(shè)置行起始值7let &rowmax=55/設(shè)置行循環(huán)最大值55 如果需要添加合并的報(bào)表，比如添加zt013，那么就在