将多个 Excel 工作簿合并为一个工作簿

Question

我是 Visual Basic 的新手。我可以使用 Excel 2010 或 Excel 2013 来完成这项任务。

我有几十个工作簿，每个工作簿的第一个工作表上都有数据。例如 One.xlsx、Two.xlsx、Three.xlsx、Four.xlsx 每个都包含各自 Sheet1 上的信息。

我需要将每个工作簿中有关 Sheet1 的信息组合成一个工作簿，其中的工作表以原始工作簿的文件名命名。例如，combined.xlsx 将有 4 张表，分别命名为一、二、三、四。在任何情况下，基础工作表上的所有信息都应复制并合并到新工作簿中，如下所示。

• 我需要的格式

我在网上找到了这个宏/加载项，它可以让我使用打开的文件添加选项接近我需要的内容。

http://www.excelbee.com/merge-excel-sheets-2010-2007-2013#close

打开文件加载项成功地允许我将各种工作簿的工作表聚合到一个工作簿中。但是，这些选项卡不是根据原始文件的名称命名的。

• 工作表聚合正确，但工作表名称不正确。

目前所有基础工作簿都将位于同一文件夹中。如果这种情况发生变化，浏览和选择文件的能力会很好，但如果这太难了，只需在 Visual Basic 代码中指示目录路径就可以了。就结果组合输出可能应该是一个新工作簿而言，新工作簿的文件名并不那么重要。例如，它可以称为combined.xlsx。

Answer 1

下面完成任务。

Option Explicit

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Dim WrdArray() As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "c:\test\"
fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
    Workbooks.Open (directory & fileName)
        WrdArray() = Split(fileName, ".")
        For Each sheet In Workbooks(fileName).Worksheets
        Workbooks(fileName).ActiveSheet.Name = WrdArray(0)
            total = Workbooks("import-sheets.xlsm").Worksheets.Count
            Workbooks(fileName).Worksheets(sheet.Name).Copy after:=Workbooks("import-sheets.xlsm").Worksheets(total)

            GoTo exitFor:

        Next sheet

exitFor:
    Workbooks(fileName).Close
    fileName = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Answer 2

在 Excel 中按 Alt+F11，这将打开 Excel VBA 编辑器。

文章http://www.excel-spreadsheet.com/vba/debugging.htm解释了一些基本的使用方法。

在 Module1 中有 2 个简短的子例程 opensheets 和 merge 包含约 50 行代码。

在您不理解的单词中使用F1 和光标，以了解其含义。

一旦您了解了代码的作用，您就可以根据自己的需要对其进行调整。