Mac平台下Excel宏实现同文件夹另存新工作簿：复制原文件后代码失效问题求助

你的问题核心在于没有明确指定保存路径——你当前的代码只写了文件名"WEDNESDAY.xls"，Excel会默认使用它的全局默认保存位置（比如系统的「文档」文件夹），而非当前活动工作簿所在的文件夹。当你把原文件复制到新位置后，这个默认路径并不会自动同步更新，所以才会出现执行失败的情况。

修正后的代码方案 #

下面的代码会自动获取当前工作簿所在的文件夹路径，再拼接目标文件名，无论原文件被复制到哪个位置，都能确保新文件保存在同一文件夹里：

' 获取当前工作簿的所在文件夹路径
Dim saveFolder As String
saveFolder = ActiveWorkbook.Path

' 处理工作簿未保存的特殊情况（此时Path会返回空字符串）
If saveFolder = "" Then
    MsgBox "请先保存当前工作簿，再执行此操作！"
    Exit Sub
End If

' 拼接完整的保存路径+文件名
Dim fullFilePath As String
fullFilePath = saveFolder & "\" & "WEDNESDAY.xls"

' 执行保存操作
ActiveWorkbook.SaveAs FileName:=fullFilePath, _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False

简化版（无需处理未保存情况） #

如果你确定执行代码时，原工作簿已经被保存过（不存在新建未保存的场景），可以直接简化成一行：

ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Path & "\WEDNESDAY.xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False

关键说明 #

• ActiveWorkbook.Path会动态返回当前活动工作簿所在的文件夹完整路径，无论文件被复制到哪个目录，这个值都会自动同步更新。
• 用& "\" &拼接路径和文件名是Windows系统的标准写法，能确保路径分隔符正确，避免出现无效路径的错误。

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