Question

MAC的Excel想要拆分多个sheet到单独工作薄该怎么做

我百度过代码：Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub但是并没有成功，具体原因如图所示跪问mac excel大牛





Answer 1

使用UNIX的路径符号吗：
\改为/
SAVEAS那句