汇总工作表

zllyyz

请在同一文件路径下在《汇总表》里汇总其他工作薄（《表1》、《表2》......）的所有工作表（按文件名字顺序）
最好能有两种以上的方式（按指定路径、按对话框选择路径等）；系统警告等请一同设置，谢谢大神们
需求如图：

dragonthree

本论坛这样的遍历文件，遍历工作表的代码多的是

cjc209

你的文件中的工作表名都不一样吗? 就是复制分文件中的每个工作表到新文件中的单个工作表 要是工作表名称一样 怎么办 还有是复制法 还是只提取值? 这些都要说明白

cjc209

一个文件中 表名是不允许重名的

cjc209

这个工具就可以 方便的很

cjc209

自由选择

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ww = ThisWorkbook
For Each sh In Sheets
    If sh.Index > 1 Then
        sh.Delete
    End If
Next sh
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & f)
        For Each sh In wb.Worksheets
            sh.Copy after:=ww.Worksheets(ww.Worksheets.Count)
        Next sh
        wb.Close False
    End If
f = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

汇总工作表.rar (39.86 KB, 下载次数: 18)

2024-1-19 13:20 上传

点击文件名下载附件

cjc209

给你一个 js宏代码function 多文件多表合并到新文件多表(){
var arr=getFiles_Z("C:\\Users\\Administrator\\Desktop\\汇总工作表")
    arr.forEach(f=>{
            var wbk=Workbooks.Open(f);
            for (var sht of wbk.Sheets){
                    sht.Activate();
                    sht.Cells.Copy();
                    ThisWorkbook.Activate();
                    Sheets.Add({after:Sheets(Sheets.Count)}).Name = sht.Name;
                    Range("a1").PasteSpecial(xlPasteAll);
                    Application.CutCopyMode = false;
            }
            wbk.Close(false)
    });   
}

zllyyz

cjc209 发表于 2024-1-19 12:18
一个文件中 表名是不允许重名的

忽略警告应该就会自动确认吧 后续一样的名字自动添加(2).(3)....