Excel 将工作表拆分为新工作簿

我想将多个工作表拆分为新的Excel文件

我得到1004个错误。

我在sheet1中有一个名为“Part1”的按钮。我想从下一页开始创建新文件。

---

您试图在代码行中插入两条路径

由于定义了

workbookPath

变量，因此不需要使用

“C\Path.xlsm”

。您需要删除

“C\Path.xlsm”

并在

wSheet.Name

之前插入

“\”

。请参阅下面的基本代码。 用于验证后，注释掉Debug.Print

Dim workbookPath As String: workbookPath = ThisWorkbook.Path 'ThisWorkbook is the macro enabled workbook.

Debug.Print ThisWorkbook.Path 'open the immediate window to varify to verify the path of the macro enabled workbook. 
    
    For Each wSheet In ThisWorkbook.Sheets
        wSheet.Copy
        
        ActiveWorkbook.SaveAs Filename:=workbookPath & "\" & wSheet.Name & ".xlsx"
        
        'When you save a sheet as a workbook it becomes the activeworkbook
        Debug.Print ActiveWorkbook.Path & "\"; ActiveWorkbook.Name 'use to verify the path of the new workbook.
        
        ActiveWorkbook.Close False
    Next wSheet

End Sub

---

在 WorkBoooBooad和“c\PATH.xLSM”和WPLA.Name和“POL.XLSX”中，有些东西应该看起来很好。我已经删除了“POL”，并且只放了“.xLSX”，我仍然得到同样的错误<代码> c\PATH。XLSM < /C>在中间看起来是很错误的。那么它可以只保存有宏的SHIET1！使用名称“Working Macro.xlsmPart1POL”，然后调试宏停止。您需要自己验证立即窗口中的路径是否有效<代码> c>路径不属于文件名的中间。

Dim workbookPath As String: workbookPath = ThisWorkbook.Path 'ThisWorkbook is the macro enabled workbook.

Debug.Print ThisWorkbook.Path 'open the immediate window to varify to verify the path of the macro enabled workbook. 
    
    For Each wSheet In ThisWorkbook.Sheets
        wSheet.Copy
        
        ActiveWorkbook.SaveAs Filename:=workbookPath & "\" & wSheet.Name & ".xlsx"
        
        'When you save a sheet as a workbook it becomes the activeworkbook
        Debug.Print ActiveWorkbook.Path & "\"; ActiveWorkbook.Name 'use to verify the path of the new workbook.
        
        ActiveWorkbook.Close False
    Next wSheet

End Sub