合并excel数据，同时合并每个excel里面的sheet

Jday1218

每个文件夹有1个excel，想把不同文件夹的excel读出来汇总生成1个excel (其中EXCEL有不同的sheet。把名字相同的sheet里的数据拿出来，整合成1个sheet), 。一共有1770个文件夹。这个有啥快捷的方法吗？

每个excel数据结构都一样

liulang0808

https://club.excelhome.net/thread-1258425-1-1.html
https://club.excelhome.net/thread-1613618-1-1.html
楼主先参考，有问题再具体咨询

smiletwo

用2个文件+简单数据模拟下结果，看看具体要什么？

wang-way

模拟一个明确的结果 别让想帮你的人去猜测你想要的答案

Jday1218

liulang0808 发表于 2023-1-27 18:50
https://club.excelhome.net/thread-1258425-1-1.html
https://club.excelhome.net/thread-1613618-1-1.ht ...

您好  我不想汇总求和，只是想把每个excel的数据都放在一个新的excel里面，excel里面的相同的sheet的内容放在一起，这个具体怎么实现？

Jday1218

每个文件夹里面的excel都有相同结构和相同的sheet，就是想把所有的excel的sheet里面的内容合并在一起，不是汇总求和，是把数据放在一起，相同的sheet放在一起

shiruiqiang

就是表名做字典，再用工作簿和项目创建新字典了

Jday1218

shiruiqiang 发表于 2023-1-27 22:52
就是表名做字典，再用工作簿和项目创建新字典了

能具体指导下吗？谢谢

liulang0808

Sub 按钮1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "汇总" Then sh.Delete
    Next sh
    Call Getfd(ThisWorkbook.Path, fso, d)
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Sub Getfd(ByVal pth, fso, d)
    Set ff = fso.getfolder(pth)
    For Each f In ff.Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
            With Workbooks.Open(f)
                For Each sh In .Sheets
                    If d.exists(sh.Name) Then
                        sh.UsedRange.Copy d(sh.Name).Cells(d(sh.Name).UsedRange.Rows.Count + 2, 1)
                    Else
                        sh.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                        Set d(sh.Name) = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                    End If
                Next sh
                .Close False
            End With
        End If
    Next f
    For Each fd In ff.subfolders
        Call Getfd(fd, fso, d)
    Next fd
End Sub

liulang0808

附件内容供参考。。。。。。。。。。。