使用宏合并文件下多个excel文件

  文件下有多个excel文件，每个文件只有一个sheet，合并多个excel到一个excel中多个sheet，每个sheet名字命名为原本excel的名称。

示例代码：需要将文件路径改为自己文件路径。

Sub 合并工作簿()
    Dim 文件名 As String, 文件路径 As String, 目标工作簿 As Workbook, 源工作簿 As Workbook
    Dim 目标工作表 As Worksheet
    Dim i As Integer

    Application.ScreenUpdating = False

    ' 打开目标工作簿
    Set 目标工作簿 = Workbooks.Add

    文件路径 = "D:\总人口表格\" ' 您的文件夹路径
    文件名 = Dir(文件路径 & "*.xls*")

    Do While 文件名 <> ""
        ' 打开源工作簿
        Set 源工作簿 = Workbooks.Open(文件路径 & 文件名)

        ' 将源工作簿的第一个工作表复制到目标工作簿
        Set 目标工作表 = 目标工作簿.Sheets.Add(, 目标工作簿.Sheets(目标工作簿.Sheets.Count))
        源工作簿.Sheets(1).UsedRange.Copy 目标工作表.Range("A1")

        ' 关闭源工作簿
        源工作簿.Close False

        ' 重命名目标工作表为源工作簿的名称
        目标工作表.Name = Left(文件名, Len(文件名) - 5) ' 去除文件扩展名

        文件名 = Dir
    Loop

    Application.ScreenUpdating = True
End Sub