OneDrive环境下VBA保存同目录新工作簿失效问题求助

问题根因 #

当工作簿存放在OneDrive同步目录下时，ThisWorkbook.Path会返回HTTP格式的云端路径，SaveCopyAs方法无法识别这类路径，导致保存失败。

修正后的完整代码 #

你可以直接替换原有失效的保存代码，不需要修改你已经写好的LocalFullName函数：

Dim NewName As String
Dim localFullPath As String
Dim saveDir As String
Dim savePath As String

' 弹出输入框获取新工作簿名称
NewName = InputBox("请指定新工作簿的名称", "新建副本")
' 用户点击取消直接退出流程
If NewName = vbNullString Then Exit Sub

' 调用已有的LocalFullName函数获取当前工作簿的本地完整路径
localFullPath = LocalFullName(ThisWorkbook.FullName)
If localFullPath = vbNullString Then
    MsgBox "无法获取OneDrive本地同步路径，请检查OneDrive同步状态", vbCritical
    Exit Sub
End If

' 从本地完整路径中提取当前目录
saveDir = Left(localFullPath, InStrRev(localFullPath, Application.PathSeparator))
' 拼接最终保存路径
savePath = saveDir & NewName & ".xlsx"

' 执行保存操作
ActiveWorkbook.SaveCopyAs savePath
ActiveWorkbook.Close SaveChanges:=False

修改说明 #

1. 放弃直接使用ThisWorkbook.Path获取目录，改为通过LocalFullName转换后的本地完整路径提取目录，规避OneDrive云端路径的问题
2. 使用Application.PathSeparator代替硬编码的反斜杠，适配不同系统的路径格式
3. 新增输入取消、路径获取失败的异常判断，减少运行时报错

注意事项 #

• 如果需要保存的新工作簿包含宏代码，将路径拼接处的.xlsx后缀改为.xlsm即可
• 确保LocalFullName函数和这段保存代码在同一个模块，或者将函数声明为Public允许跨模块调用

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