VBA 代码合并多个 Excel 文件 - 详细步骤与代码示例

如何使用 VBA 代码合并多个 Excel 文件：要使用 VBA 代码合并多个 Excel 文件，我们可以按照以下步骤操作：

1. 打开一个新的 Excel 文件，作为合并后的文件。
2. 打开 VBA 编辑器（按下 Alt + F11）。
3. 在 VBA 编辑器中，插入一个新的模块（在左侧的项目浏览器中右击工作簿，选择插入>模块）。
4. 在新的模块中，编写以下 VBA 代码：

Sub MergeFiles()
    Dim FolderPath As String
    Dim Filename As String
    Dim Sheet As Worksheet
    Dim DestSheet As Worksheet
    
    ' 设置合并后的工作表
    Set DestSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    DestSheet.Name = "合并"
    
    ' 设置文件夹路径
    FolderPath = "C:\文件夹路径\" ' 更改为实际的文件夹路径
    
    ' 循环遍历文件夹中的所有文件
    Filename = Dir(FolderPath & "*.xlsx")
    Do While Filename <> ""
        ' 打开每个文件
        Workbooks.Open Filename:=FolderPath & Filename
        
        ' 复制每个文件的所有工作表到合并后的工作表
        For Each Sheet In ActiveWorkbook.Sheets
            Sheet.Copy After:=DestSheet
            Set DestSheet = ActiveSheet
        Next Sheet
        
        ' 关闭打开的文件
        Workbooks(Filename).Close
        
        ' 获取下一个文件名
        Filename = Dir
    Loop
    
    ' 删除合并后工作表之前的默认工作表
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets(1).Delete
    Application.DisplayAlerts = True
    
    ' 保存合并后的文件
    ThisWorkbook.SaveAs Filename:="C:\合并后的文件.xlsx" ' 更改为实际的保存路径
    
    ' 关闭合并后的文件
    ThisWorkbook.Close
End Sub

5. 在代码中，修改 FolderPath 为包含要合并的 Excel 文件的文件夹路径，修改保存合并后的文件的路径。
6. 运行代码（按下 F5）。
7. 执行完代码后，将在指定的保存路径中生成一个合并后的文件。

请确保修改代码中的文件夹路径和保存路径以适应你的实际情况。