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

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中进行自动化和定制。它可以帮助用户通过编写脚本来自动执行各种任务，包括合并多个工作簿为一个工作簿。

合并多个工作簿为一个工作簿是一个常见的需求，特别是在处理大量数据时。以下是一种使用VBA合并多个工作簿的方法：

打开一个新的Excel工作簿，作为最终合并后的工作簿。
在新工作簿中按下Alt + F11，打开Visual Basic for Applications编辑器。
在编辑器中，插入一个新的模块。可以通过点击“插入”菜单，然后选择“模块”来完成。
在新模块中编写以下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