如何将多个Excel工作簿合并成一个新的工作簿

已知有多个独立的Excel工作簿文件，现在需要将这些文件合并到一个新的工作簿中，并保留原来的工作表名称。本文将教大家如何批量处理多个工作簿的合并。

步骤一：准备工作

1. 将需要合并的Excel工作簿文件放置在一个文件夹中。

2. 每个工作簿文件中都输入了简单的内容。

步骤二：新建一个工作簿

在该文件夹中，新建一个新的Excel工作簿文件，然后将其重命名为8。

步骤三：打开代码编辑窗口

3. 打开新建的Excel工作簿文件8。

4. 按下Alt F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

注意：通过快捷键Alt F11打开的窗口没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。

步骤四：输入代码

5. 在代码窗口中，黏贴下列代码：

```

Sub CombineFiles()

Dim path As String

Dim FileName As String

Dim LastCell As Range

Dim Wkb As Workbook

Dim WS As Worksheet

Dim ThisWB As String

Dim MyDir As String

MyDir ""

'ChDrive Left(MyDir, 1)

'find all the excel files

'ChDir MyDir

'Match Dir$("")

ThisWB

Application.EnableEvents False

False

path MyDir

FileName Dir(path "*.xls", vbNormal)

Do Until FileName ""

If FileName <> ThisWB Then

Set Wkb (FileName:path "" FileName)

For Each WS In

Set LastCell WS.Cells.SpecialCells(xlCellTypeLastCell)

If "" And Range("$A$1").Address Then

' Do nothing if the last cell is empty and in column A1

Else

After:()

End If

Next WS

False

End If

FileName Dir()

Loop

Application.EnableEvents True

True

Set Wkb Nothing

Set LastCell Nothing

End Sub

```

步骤五：运行代码

6. 点击菜单栏的"运行"，然后选择"运行子过程"，再选择"用户窗体"。关闭代码输入窗口。

7. 打开Excel工作簿8，可以看到下方已经多了很多新的工作表。此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

通过以上步骤，您可以轻松地将多个Excel工作簿合并成一个新的工作簿，并保留原来的工作表名称。这对于需要处理大量数据的用户来说，是一个非常实用的技巧。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。