如何使用VBA將一個(gè)包含多個(gè)工作表的Excel工作簿拆分為多個(gè)獨(dú)立工作簿

目標(biāo)：使用VBA將Excel文件中的每個(gè)工作表保存為單獨(dú)的工作簿。

步驟：

1. 打開Excel文件:

? 找到你想要拆分的Excel文件并打開它。

2. 打開VBA編輯器:

? 在Excel中，按 ALT + F11 來打開VBA開發(fā)環(huán)境。

3. 插入新模塊:

? 在VBA開發(fā)環(huán)境中，右鍵點(diǎn)擊左側(cè)的“Microsoft Excel Objects”文件夾。

? 選擇“插入” -> “模塊”。

4. 復(fù)制并粘貼VBA代碼:

? 在新插入的模塊窗口中，復(fù)制并粘貼上述VBA代碼。

Sub SplitWorkbookToSeparateFiles()

??Dim OriginalWs As Worksheet

??Dim NewWb As Workbook

??Dim SavePath As String

??' 設(shè)置保存的路徑

??SavePath = "C:\Users\Administrator\Desktop\DEMO\"

??' 遍歷所有工作表

??For Each OriginalWs In ThisWorkbook.Worksheets

????' 新建工作簿

????Set NewWb = Workbooks.Add

????' 復(fù)制工作表到新工作簿

????OriginalWs.Copy Before:=NewWb.Sheets(1)

?????

????' 刪除新工作簿中的其他工作表

????Application.DisplayAlerts = False

????While NewWb.Sheets.Count > 1

??????NewWb.Sheets(2).Delete

????Wend

????Application.DisplayAlerts = True

????' 保存新工作簿

????NewWb.SaveAs Filename:=SavePath & OriginalWs.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook

????' 關(guān)閉新工作簿

????NewWb.Close SaveChanges:=False

??Next OriginalWs

??' 清理變量

??Set NewWb = Nothing

??Set OriginalWs = Nothing

??MsgBox "完成拆分并保存!", vbInformation

End Sub

5. 運(yùn)行宏:

? 關(guān)閉VBA開發(fā)環(huán)境。

? 在Excel中，按 ALT + F8 打開宏對話框。

? 從列表中選擇 SplitWorkbookToSeparateFiles 宏。

? 點(diǎn)擊“運(yùn)行”。

6. 查看結(jié)果:

? 轉(zhuǎn)到 C:\Users\Administrator\Desktop\DEMO\ 路徑。

? 您將看到每個(gè)工作表都已保存為單獨(dú)的Excel工作簿，文件名與原工作表名稱相同。

注意事項(xiàng)：

? 在運(yùn)行VBA宏之前，請確保備份原始Excel文件，以防止任何意外損壞或數(shù)據(jù)丟失。

? 確保文件保存路徑（在本教程中為C:\Users\Administrator\Desktop\DEMO\）存在。您可以根據(jù)需要修改該路徑。

? 如果在運(yùn)行VBA宏時(shí)遇到錯(cuò)誤或問題，請檢查您的Excel版本和設(shè)置，或參考相關(guān)VBA文檔和資源進(jìn)行調(diào)試。