求工作表的列与行

a10feixiang

ykcbf1100 发表于 2023-4-11 17:25
明天看一下吧。

好的，谢谢

gwjkkkkk

a10feixiang 发表于 2023-4-11 17:46
好的，谢谢

参与一下。。。

仙女配凡人

这个用WPS代码会比较简单，选择多个文件进行汇总

1. function test() {
   
2.   let suffix = 'Excel Files(*.xlsx; *.xls; *.csv; *.xla), *.xlsx;*.xls;*.csv;*.xla,All Files(*.*), *.*';
   
3.   let path = Application.GetOpenFilename(suffix, 1, '请选择多个文件', undefined, true);
   
4. 
   
5.   const arr = path.map(i => {
   
6.     let wb = Workbooks.Open(i)
   
7.       , sht = wb.ActiveSheet
   
8.       , c1 = sht.Range('M3').Value2 || 0
   
9.       , c2 = sht.Range('O3').Value2 || 0
   
10.       , data = [wb.Name, Number(c1), Number(c2)]; //将单元格的值转数字
    
11. 
    
12.     wb.Close(false);
    
13.     return data
    
14.   })
    
15. 
    
16.   let rng = Range('A2').Resize(arr.length, arr[0].length);
    
17.   rng.Value2 = arr.sort((a, b) => b[1] - a[1]) //以第二列降序排序
    
18. }

复制代码

ykcbf1100

a10feixiang 发表于 2023-4-11 17:46
好的，谢谢

可以了，不会再出现更新提示了。

另外，新增了排序功能（B列升，C列降）

a10feixiang

仙女配凡人 发表于 2023-4-11 19:53
这个用WPS代码会比较简单，选择多个文件进行汇总

谢谢   gwjkkkkk   仙女配凡人  ykcbf1100三位老师 .