自制 Excel 神器:VBA 合并工作簿插件详解

deer332025-09-08技术文章33

前言

在日常工作中，我们可能会遇到许多需要重复的任务，比如合并多个Excel工作簿的数据。今天，我将通过一个实际案例——“合并多个工作簿”，带你从零开始制作一个 VBA 插件，并将其集成到 Excel 中，成为你的专属效率工具。

一、什么是 VBA 插件？

VBA 插件是通过 VBA 编写的工具，可以集成到 Excel 中，提供自定义功能。与普通的 VBA 宏不同，插件可以被保存为独立的文件（.xlam），并在不同的工作簿中重复使用。通过插件，你可以将复杂的操作简化为一次点击，大幅提升工作效率。

插件的优势：

可重复使用：一次编写，多次调用。
集成到 Excel 功能区：通过自定义按钮快速访问。
自动化复杂任务：减少手动操作，避免错误。

二、制作 VBA 插件的步骤

我们将以“合并多个工作簿”为例，详细讲解如何制作一个 VBA 插件，并将其集成到 Excel 中。

1. 准备工作

在开始编写代码之前，我们需要做一些准备工作：

打开 Excel：新建一个空白工作簿，用于存放插件代码。
进入 VBA 编辑器：按 Alt + F11 打开 VBA 编辑器。
插入模块：在 VBA 编辑器中，点击插入 > 模块，创建一个新模块。

2. 编写 VBA 代码

以下是合并多个工作簿的 VBA 代码：

Sub 合并工作簿为分表() ' 合并多个工作簿，工作表不汇总
    Dim strPath As String, strFileName As String
    Dim shtData As Worksheet
    Dim i As Integer

    ' 关闭屏幕更新以提高性能
    Application.ScreenUpdating = False

    ' 使用文件夹选择对话框让用户选择一个文件夹
    strPath = IIf(Application.FileDialog(msoFileDialogFolderPicker).Show, _
    Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1), "")
    ' 确保路径以反斜杠结束
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

    ' 使用Dir函数获取指定文件夹下所有Excel文件的名称
    strFileName = Dir(strPath & "*.xls*")
    ' 循环遍历所有文件
    Do While strFileName <> ""
        ' 排除当前打开的工作簿文件
        If strFileName <> ThisWorkbook.Name Then
            ' 使用GetObject函数打开工作簿，不需要显示
            With GetObject(strPath & strFileName)
                ' 遍历工作簿中的所有工作表
                For Each shtData In .Worksheets
                    ' 将每个工作表复制到ThisWorkbook的末尾
                    shtData.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                Next shtData
                ' 关闭工作簿，不保存更改
                .Close False
            End With
        End If
        ' 获取下一个文件名继续循环
        strFileName = Dir()
    Loop

    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub