excel - 将工作表拆分为工作簿

Question

我试图将我的工作表拆分为单独的工作簿，但弹出“运行时错误 1004，对象_workbook 的方法保存失败”。如何解决？我使用下面的代码，它可以在我的 Windows 笔记本电脑上完美运行，但不能在我的 Mac 上运行。

Sub SplitEachWorksheet()
Dim FPath As String
FPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
    ws.Copy
    Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

标签： excelvba