【教學】Excel 如何將所有工作表另存成單獨的檔案並自動命名？

excel 所有工作表 另存新檔 如何將excel拆分檔案 如何將一個excel拆成數個excel

Step 1 在功能列「開發人員」中程式碼選擇「Visual Basic」

---

Step 2 輸入下方程式碼，並按下執行即可完成

Sub 另存每個工作表()
    Dim ws As Worksheet
    Dim Path As String
    
    '指定保存的文件夾路徑
    Path = "C:\Users\jafn\Desktop\20231006" '請替換為您的文件夾路徑
    
    '循環處理每個工作表
    For Each ws In ThisWorkbook.Sheets
        '保存當前工作表為獨立的工作簿
        ws.Copy
        '將新工作簿保存為以工作表名稱命名的文件
        ActiveWorkbook.SaveAs Path & "\" & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close SaveChanges:=False
    Next ws
End Sub