已知有多個獨立的Excel工作簿文件，現(xiàn)在需要將這些文件合并到一個新的工作簿中，并保留原來的工作表名稱。本文將教大家如何批量處理多個工作簿的合并。步驟一：準備工作1. 將需要合并的Excel工作簿文件

已知有多個獨立的Excel工作簿文件，現(xiàn)在需要將這些文件合并到一個新的工作簿中，并保留原來的工作表名稱。本文將教大家如何批量處理多個工作簿的合并。

步驟一：準備工作

1. 將需要合并的Excel工作簿文件放置在一個文件夾中。

2. 每個工作簿文件中都輸入了簡單的內(nèi)容。

步驟二：新建一個工作簿

在該文件夾中，新建一個新的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，可以看到下方已經(jīng)多了很多新的工作表。此時，我們已經(jīng)將之前的工作簿中的工作表都復制到了這一新建的工作簿中。

通過以上步驟，您可以輕松地將多個Excel工作簿合并成一個新的工作簿，并保留原來的工作表名稱。這對于需要處理大量數(shù)據(jù)的用戶來說，是一個非常實用的技巧。