VBA多工作簿中多工作表分类汇总

应用背景：

将某一文件夹下所有工作簿中的多张表单汇总到一个工作薄中的一张表单中

最终效果：

步骤流程：

完整代码：

=========================================================================

 1、汇总当前文件夹下所有工作簿中所有sheets

=========================================================================

Sub CopySheet() '汇总当前文件夹下所有工作簿中所有sheets
    Dim filPath As String, BookName As String, strKey As String
    Dim ShtName As String, k As Long, w