使用VBA保存Excel至Sharepoint时出现运行时错误1004的排查

一、语法/逻辑错误排查 #

你当前的SaveAs代码存在明显逻辑问题：

ThisWorkbook.SaveAs Filename:="https://rxsafeway.sharepoint.com/sites/EXELiveProductionTool/Shared%20Documents/General/Portland/Individual%20Performance%20Update/" & ".xlsm"

末尾的& ".xlsm"前未指定具体文件名，最终生成的路径是.../Individual%20Performance%20Update/.xlsm——文件名仅为.xlsm，不符合Windows文件命名规则，系统会拒绝这种无效文件名，这是触发1004错误的直接原因之一。

二、优化的保存方式 #

针对Sharepoint保存不稳定的问题，推荐以下几种更可靠的方案：

1. 修正文件名，使用完整合法路径 #

指定明确的文件名（比如沿用当前工作簿名称或自定义名称），同时显式声明文件格式避免环境差异：

' 沿用当前工作簿名称保存到目标路径
Dim savePath As String
savePath = "https://rxsafeway.sharepoint.com/sites/EXELiveProductionTool/Shared%20Documents/General/Portland/Individual%20Performance%20Update/" & ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled

2. 映射Sharepoint文件夹为网络驱动器 #

将目标Sharepoint文件夹映射成本地网络驱动器（比如Z:），使用本地路径保存的稳定性远高于HTTP路径：

• 手动映射：打开文件资源管理器，右键「此电脑」→「映射网络驱动器」，输入Sharepoint文件夹的UNC路径（可从Sharepoint文件夹页面→「查看」→「复制路径」获取）。
• VBA中使用映射路径：

ThisWorkbook.SaveAs Filename:="Z:\Individual Performance Update\" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled

3. 使用SaveCopyAs替代SaveAs #

如果仅需保存当前工作簿的副本到Sharepoint，而非修改当前工作簿的保存路径，SaveCopyAs更轻量且不易出错：

Dim copyPath As String
copyPath = "https://rxsafeway.sharepoint.com/sites/EXELiveProductionTool/Shared%20Documents/General/Portland/Individual%20Performance%20Update/DailyPerformanceCopy.xlsm"
ThisWorkbook.SaveCopyAs Filename:=copyPath

4. 增加错误重试机制 #

针对网络波动导致的不稳定，添加错误捕获和重试逻辑：

Dim savePath As String, retryCount As Integer
savePath = "https://rxsafeway.sharepoint.com/sites/EXELiveProductionTool/Shared%20Documents/General/Portland/Individual%20Performance%20Update/" & ThisWorkbook.Name
retryCount = 0

On Error Resume Next
Do While retryCount < 3
    ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    If Err.Number = 0 Then Exit Do
    Err.Clear
    retryCount = retryCount + 1
    Application.Wait Now + TimeValue("00:00:03") ' 等待3秒后重试
Loop
On Error GoTo 0

If retryCount = 3 Then
    MsgBox "保存失败，已重试3次", vbCritical
End If

5. 检查文件锁定与权限 #

• 确认目标文件夹中没有同名文件被其他用户打开（Sharepoint会锁定正在编辑的文件）；
• 核实当前账号对该Sharepoint文件夹拥有写入权限，必要时联系管理员确认。

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