恳请大神帮忙看下如何将多张表格汇总到一张表上

qiongmei6

我附件“汇总”表格上想求得一个代码，就是当他执行的时候，他会将文件夹内的其他文件内的“录入”表格内的b5：w124汇总到“汇总”表格内“工资汇总”表格内的b3：w内，谢谢各位大神的帮忙。

skyzxh

抓壮丁。。。。。。

蓝桥玄霜

汇总的例子：

qiongmei6

谢谢蓝桥玄霜师傅，我对照字母输入进去，不知道是哪个字母输入错误，老是提示对象不支持该属性和方法，能否麻烦您看下吗

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.27
   
2.     Set Fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set sh = ThisWorkbook.Sheets("工资汇总")
   
5.     p = ThisWorkbook.Path & ""
   
6.     ReDim brr(1 To 10000, 1 To 30)
   
7.     On Error Resume Next
   
8.     For Each f In Fso.GetFolder(p).Files
   
9.         If f.Name Like "*.xls*" Then
   
10.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
11.                 fn = Fso.GetBaseName(f)
    
12.                 Set wb = Workbooks.Open(f, 0)
    
13.                 With wb.Sheets("录入")
    
14.                     arr = .UsedRange
    
15.                     wb.Close False
    
16.                 End With
    
17.                 For i = 5 To UBound(arr)
    
18.                     If arr(i, 2) <> Empty Then
    
19.                         m = m + 1
    
20.                         brr(m, 1) = m
    
21.                         For j = 2 To UBound(arr, 2)
    
22.                             brr(m, j) = arr(i, j)
    
23.                         Next
    
24.                     End If
    
25.                 Next
    
26.             End If
    
27.         End If
    
28.     Next f
    
29.     With sh
    
30.         .UsedRange.Offset(2) = ""
    
31.         .[a3].Resize(m, 26) = brr
    
32.     End With
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "OK！"
    
35. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

cjc209

function test(){
        var wj=getFiles_Z(ThisWorkbook.Path);
        var rs=[];
        Application.ScreenUpdating = false;
        wj.map(f=>{
                if(文件名(f)[0]!="汇总"){
                var wb = Workbooks.Open(f);
                var arr=maxArray_Z(wb.Sheets("录入").Range("a5:w5"),"c");
                rs=rs.concat(arr);
                wb.Close(false);
        }
        })
        Application.ScreenUpdating = true;
   Sheets("工资汇总").Range("v:w").NumberFormatLocal = "@";
   rs.toRange_Z("工资汇总!a3");
}