汇总多个表格数据

梦羽111

把测试文件夹里面的工作表上的数据汇总到台账这个工作簿上，一个工作表汇总成一行

shiruiqiang

只能一个一个定位写，让了

LIUZHU

JSA参与下

1. function 工作簿汇总(){
   
2.         let fname=Dir(`${ThisWorkbook.Path}\\测试\\*.xls*`);
   
3.         let res=[],k=0;
   
4.         while(fname!=""){
   
5.                 Workbooks.Open(`${ThisWorkbook.Path}\\测试\\${fname}`);
   
6.                 let temp=["I3","I3","I4","C5","I5","I6","A9","E9","I9"].map(x=>Range(x).Value2);
   
7.                 temp.push(...Range("a12:m12").Value2[0])
   
8.                 res.push((temp[0]=++k,temp));
   
9.                 ActiveWorkbook.Close(false);
   
10.                 fname=Dir();
    
11.         }
    
12.         Range("a3").Resize(res.length,res[0].length).Value2=res;
    
13. }

复制代码

LIUZHU

附件需用WPS测试

梦羽111

LIUZHU 发表于 2024-4-23 18:28
附件需用WPS测试

运行不起来

LIUZHU

我这里运行没有任何问题

LIUZHU

梦羽111 发表于 2024-4-23 18:45
运行不起来

可能你的WPS版本较低，有些语法不支持吧，比如这句“res.push((temp[0]=++k,temp))”

jjmysjg

shiruiqiang 发表于 2024-4-23 18:23
只能一个一个定位写，让了

arr(3, 9),arr(4, 9),arr(5, 7),arr(5, 9),arr(6, 9),arr(9, 1),arr(9, 3),arr(9, 9),arr(12, 1),arr(12, 2),arr(12, 3),arr(12, 4),arr(12, 5),arr(12, 6),arr(12, 7),arr(12, 8),arr(12, 9),arr(12, 10),arr(12, 11),arr(12, 12)

65861954

LIUZHU 发表于 2024-4-23 19:15
可能你的WPS版本较低，有些语法不支持吧，比如这句“res.push((temp[0]=++k,temp))”

这时JS吗？

LIUZHU

65861954 发表于 2024-4-23 19:47
这时JS吗？

是的，JSA代码