vba合并工作簿

在 VBA 中合并多个工作簿可以通过以下步骤实现：

1. 打开一个新的空白工作簿
2. 创建一个变量来存储所有要合并的工作簿的文件名（路径）
3. 循环遍历每个文件名，打开工作簿并将其内容复制到新工作簿中
4. 关闭所有要合并的工作簿

下面是一个示例代码：

Sub MergeWorkbooks()
    Dim MyPath As String
    Dim FilesInPath As String
    Dim MyFiles() As String
    Dim SourceWorkbook As Workbook
    Dim DestWorkbook As Workbook
    Dim LastRow As Long
    
    '设置要合并的工作簿所在的文件夹路径
    MyPath = "C:\Users\Username\Desktop\Workbooks\"
    
    '获取所有要合并的工作簿的文件名
    FilesInPath = Dir(MyPath & "*.xlsx")
    Do While FilesInPath <> ""
        If FilesInPath <> ThisWorkbook.Name Then
            ReDim Preserve MyFiles(0 To UBound(MyFiles) + 1)
            MyFiles(UBound(MyFiles)) = MyPath & FilesInPath
        End If
        FilesInPath = Dir()
    Loop
    
    '打开新工作簿并复制所有工作簿的内容到其中
    Set DestWorkbook = Workbooks.Add(xlWBATWorksheet)
    For Each File In MyFiles
        Set SourceWorkbook = Workbooks.Open(File)
        LastRow = DestWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        SourceWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy _
            DestWorkbook.Sheets(1).Range("A" & LastRow + 1)
        SourceWorkbook.Close SaveChanges:=False
    Next File
    
    '保存合并后的工作簿并关闭
    DestWorkbook.SaveAs Filename:=MyPath & "MergedWorkbooks.xlsx"
    DestWorkbook.Close SaveChanges:=True
End Sub

在上面的代码中，将要合并的工作簿所在的文件夹路径存储在变量 `MyPath` 中。然后使用 `Dir` 函数获取所有要合并的工作簿的文件名，并将它们存储在数组 `MyFiles` 中。接下来，使用 `Workbooks.Add` 方法打开一个新的工作簿，并使用 `For Each` 循环遍历数组中的每个文件名。在循环中，使用 `Workbooks.Open` 方法打开每个工作簿，并将其内容复制到新工作簿中。最后，使用 `SaveAs` 方法将新工作簿保存到指定路径，并使用 `Close` 方法关闭它。