VBA将多个工作簿合并为一个工作簿

Sub 合并工作簿()
    Dim 目标工作簿 As Workbook
    Dim 源工作簿 As Workbook
    Dim 目标工作表 As Worksheet
    Dim 源工作表 As Worksheet
    Dim 文件名 As String
    Dim 文件路径 As String
    
    ' 设置目标工作簿为当前活动工作簿
    Set 目标工作簿 = ThisWorkbook
    Set 目标工作表 = 目标工作簿.Sheets(1)
    
    ' 获取源工作簿的文件路径和文件名
    文件路径 = "C:\路径\"
    文件名 = "工作簿1.xlsx"
    
    ' 打开源工作簿
    Set 源工作簿 = Workbooks.Open(文件路径 & 文件名)
    
    ' 将源工作簿的第一个工作表复制到目标工作簿的第一个工作表后面
    Set 源工作表 = 源工作簿.Sheets(1)
    源工作表.Copy After:=目标工作表
    
    ' 关闭源工作簿，保存更改
    源工作簿.Close SaveChanges:=False
    
    ' 继续处理其他源工作簿，重复以上步骤
    
    ' 清理对象
    Set 源工作表 = Nothing
    Set 源工作簿 = Nothing
    Set 目标工作表 = Nothing
    Set 目标工作簿 = Nothing
    
    MsgBox "工作簿合并完成！"
End Sub