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

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

步驟一：準(zhǔn)備工作

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

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

步驟二：新建一個(gè)工作簿

在該文件夾中，新建一個(gè)新的Excel工作簿文件，然后將其重命名為8。

步驟三：打開(kāi)代碼編輯窗口

3. 打開(kāi)新建的Excel工作簿文件8。

4. 按下Alt F11或者將鼠標(biāo)移動(dòng)到下方工作表名稱sheet1上右鍵，選擇查看代碼。

注意：通過(guò)快捷鍵Alt F11打開(kāi)的窗口沒(méi)有直接復(fù)制代碼的面板，需要點(diǎn)擊左上方的工程-VBA project模塊，雙擊sheet1，即可打開(kāi)代碼窗口。而步驟3中的第二種方法可以直接打開(kāi)代碼輸入窗口。

步驟四：輸入代碼

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

```

步驟五：運(yùn)行代碼

6. 點(diǎn)擊菜單欄的"運(yùn)行"，然后選擇"運(yùn)行子過(guò)程"，再選擇"用戶窗體"。關(guān)閉代碼輸入窗口。

7. 打開(kāi)Excel工作簿8，可以看到下方已經(jīng)多了很多新的工作表。此時(shí)，我們已經(jīng)將之前的工作簿中的工作表都復(fù)制到了這一新建的工作簿中。

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