Excel VBA 工作簿合并的实现示例

在日常的办公工作中，我们常常会遇到需要将多个 Excel 工作簿合并为一个的情况。手动操作不仅繁琐，而且容易出错。这时，利用 Excel VBA 来实现工作簿的合并就能大大提高工作效率。

打开 Excel 并按下 Alt + F11 快捷键，进入 VBA 编辑界面。在这个界面中，我们需要编写一段代码来完成工作簿的合并操作。

以下是一个简单的示例代码：

Sub MergeWorkbooks()
    Dim wbSource As Workbook
    Dim wbDest As Workbook
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim FilePath As String
    Dim FileName As String

    '设置目标工作簿
    Set wbDest = ThisWorkbook

    '选择要合并的工作簿所在的文件夹路径
    FilePath = "C:\YourFolderPath\"

    '遍历文件夹中的所有 Excel 文件
    FileName = Dir(FilePath & "*.xls*")
    Do While FileName <> ""
        '打开源工作簿
        Set wbSource = Workbooks.Open(FilePath & FileName)

        '遍历源工作簿中的所有工作表
        For Each wsSource In wbSource.Worksheets
            '将源工作表的数据复制到目标工作表
            wsSource.Cells.Copy
            Set wsDest = wbDest.Worksheets.Add(After:=wbDest.Worksheets(wbDest.Worksheets.Count))
            wsDest.Paste
        Next wsSource

        '关闭源工作簿
        wbSource.Close SaveChanges:=False

        '获取下一个文件名
        FileName = Dir
    Loop
End Sub

在上述代码中，我们首先设置了目标工作簿，然后指定了要合并的工作簿所在的文件夹路径。通过循环遍历文件夹中的每个 Excel 文件，打开文件并将其中的工作表数据依次复制到目标工作簿的新工作表中。

需要注意的是，在实际使用时，您需要将代码中的文件夹路径"C:\YourFolderPath\"修改为您存放要合并工作簿的真实路径。

使用 Excel VBA 进行工作簿合并具有诸多优点。它能够快速处理大量的工作簿，节省了大量的时间和精力。而且，通过编写代码，我们可以根据具体的需求进行灵活的定制，例如指定特定的工作表进行合并，或者对数据进行筛选和处理等。

掌握 Excel VBA 工作簿合并的方法，可以让我们在处理数据时更加高效和便捷，为日常的办公工作带来极大的便利。希望这个示例能够帮助您更好地利用 Excel VBA 来解决工作中的实际问题。