vba 合并多个excel文件

您可以使用 VBA 编写代码来合并多个 Excel 文件。以下是一个简单的示例代码：

Sub 合并多个Excel文件()
    Dim 文件路径 As String, 文件名称 As String, 工作簿 As Workbook, 目标工作簿 As Workbook
    文件路径 = "C:\Users\XXX\Desktop\"
    文件名称 = Dir(文件路径 & "*.xlsx")
    Set 目标工作簿 = Workbooks.Add
    Do While 文件名称 <> ""
        Set 工作簿 = Workbooks.Open(文件路径 & 文件名称)
        工作簿.Sheets(1).Copy After:=目标工作簿.Sheets(目标工作簿.Sheets.Count)
        工作簿.Close False
        文件名称 = Dir
    Loop
End Sub

在这个示例代码中，我们首先定义了一个文件路径，用于存储要合并的 Excel 文件，然后使用 `Dir` 函数获取该路径下的所有 Excel 文件名。接着，我们创建了一个新的工作簿作为目标工作簿，用于存储合并后的数据。在循环中，我们打开每个 Excel 文件，并将其第一个工作表复制到目标工作簿中。最后，我们关闭原工作簿并将文件名移动到下一个 Excel 文件，直到所有文件都被合并到目标工作簿中。

请注意，此代码仅适用于所有 Excel 文件都具有相同的结构和字段。如果要合并具有不同结构的多个 Excel 文件，则需要编写更复杂的代码。