多个工作簿，如何快速合并成一个工作簿

可口可乐101

各位老师，大家晚上好！
在统计各部门申报费用，有很多工作簿，每个工作簿可能有1-4个工作表，
如何快速的把这个工作簿内的工作表合并到一个工作簿中。

说细请看附件，附附件中”长春“工作簿有两个表页，
全部工作簿合并后如同”2019年工资费用“工作簿。


请各位老师协助，万分感谢！

可口可乐101

把下面这十个工作簿合并成第一个工簿

liulang0808

Sub 按钮5_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Sheets
        Set d(sh.Name) = sh
        If sh.Name <> "工资滙總" Then
            sh.UsedRange.ClearContents
        End If
    Next sh
    Set sh = ActiveSheet
    For Each f In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, "_") > 0 Then
            With Workbooks.Open(f)
                For Each sht In .Sheets
                    sht.UsedRange.Copy d(sht.Name).Range(sht.UsedRange.Cells(1).Address)
                Next sht
                .Close False
            End With
        End If
    Next f
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
End Sub

liulang0808

附件内容供参考。。。

可口可乐101

liulang0808 发表于 2020-3-6 21:59
附件内容供参考。。。

感谢版主，非常感，我先试试哈。

可口可乐101

liulang0808 发表于 2020-3-6 21:59
附件内容供参考。。。

版主，你这个能不能写个操作说明。我不会操作。

liulang0808

可口可乐101 发表于 2020-3-6 22:24
版主，你这个能不能写个操作说明。我不会操作。

第一张表里有个按钮，启用宏，然后点击按钮即可
不过要保证代码所在表的表名跟其他分工作簿的表名一致

可口可乐101

liulang0808 发表于 2020-3-7 07:47
第一张表里有个按钮，启用宏，然后点击按钮即可
不过要保证代码所在表的表名跟其他分工作簿的表名一致

感谢版主，非常感谢！加班加到现在，才有时间看看信息，实在对不起。