文件夹下多工作簿汇总

LIUZHU

dgzwz 发表于 2024-4-2 08:27
不要，谢谢

是不是就是几个工作簿按照科目求和汇总，小计、合计全部不要？

yynrzwh

余额表.zip (28.07 KB, 下载次数: 10)

2024-4-2 09:00 上传

点击文件名下载附件

dgzwz

ykcbf1100 发表于 2024-4-2 08:19
小计合计要汇总吗？如果按科目名称汇总的话，小计合计应该不要吧

dgzwz

LIUZHU 发表于 2024-4-2 08:52
是不是就是几个工作簿按照科目求和汇总，小计、合计全部不要？

对，但可能有多个工作簿

ykcbf1100

dgzwz 发表于 2024-4-2 09:00

啥意思呢？

baofa2

余额表.rar (21.81 KB, 下载次数: 12)

2024-4-2 09:16 上传

点击文件名下载附件

dgzwz

liulang0808 发表于 2024-4-2 08:50
模拟结果供参考。。。。

，好象汇总的金额不对，能不能按科目代码排序汇总

dgzwz

liulang0808 发表于 2024-4-2 08:50
模拟结果供参考。。。。

汇总的金额不对

LIUZHU

这个效果

LIUZHU

JSA代码

1. function 汇总工作簿(){
   
2.         let fname=Dir(`${ThisWorkbook.Path}\\*.xls*`,8);
   
3.         let obj={"表头":["科目名称","期初余额借方","期初余额贷方","本期发生借方","本期发生贷方","期末余额借方","期末余额贷方"]};
   
4.         while(fname!=""){
   
5.                 if (fname!=ThisWorkbook.Name){
   
6.                         Workbooks.Open(`${ThisWorkbook.Path}\\${fname}`);
   
7.                         Range("a1").CurrentRegion.Value2.slice(1).forEach(x=>{
   
8.                                 if (x[2]==null) return;
   
9.                                 let temp=obj[x[2]]=obj[x[2]] || [x[2],...new Array(obj.表头.length-1).fill(0)];
   
10.                                 temp.forEach((y,i)=>i>0?temp[i]+=x[i+2]:null);
    
11.                                
    
12.                         });
    
13.                         ActiveWorkbook.Close(false);
    
14.                 }
    
15.                 fname=Dir();
    
16.         }
    
17.         Cells.ClearContents();
    
18.         let res=Object.values(obj);
    
19.         Range("a1").Resize(res.length,res[0].length).Value2=res;
    
20. }

复制代码