Mac Excel调用Worksheet.Copy复制工作表为独立工作簿报错如何解决

这个报错是Mac端Excel VBA和Windows端的兼容差异导致的，直接照搬PC端代码只改路径没用，核心问题有两个：

• 无参数调用Worksheet.Copy时，Mac版Excel会默认尝试在系统受保护的临时目录生成新工作簿，直接触发权限拦截，代码根本走不到后续的保存逻辑。
• Mac端VBA的ChDir不支持直接传入POSIX格式的绝对路径，你写的切目录代码本身就不生效；另外你拼接文件名时漏了后缀前的.，就算路径正常，存出的文件格式也不对。

直接用下面的版本，不用硬编码固定路径，默认就把拆分后的文件存在原工作簿所在文件夹，适配Mac/Windows双端：

Sub CopySheets()
    Dim ws As Worksheet
    Dim savePath As String
    Dim sourceWb As Workbook
    
    Set sourceWb = ActiveWorkbook
    ' 自动获取原工作簿所在路径，自动适配系统的路径分隔符
    savePath = sourceWb.Path & Application.PathSeparator
    
    For Each ws In sourceWb.Worksheets
        ' 复制工作表生成新工作簿
        ws.Copy
        ' 按要求保存到原目录，指定xlsx格式，避免格式兼容弹窗
        ActiveWorkbook.SaveAs _
            Filename:=savePath & ws.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook
        ' 关闭新生成的工作簿
        ActiveWorkbook.Close SaveChanges:=False
    Next
End Sub

• 首次运行如果弹出文件夹权限申请，直接给Excel开放对应目录的访问权限即可，macOS Catalina及以上版本对文档目录有默认访问限制。
• 如果工作表名称包含/ \ : * ? " < > |这类系统禁止作为文件名的特殊字符，要提前替换，否则保存时会触发文件名非法报错。

内容的提问来源于stack exchange，提问作者PhilNBlanks