VBA中SaveAs功能正常但SaveCopyAs无法使用的问题求助

问题核心 #

SaveAs会直接重命名当前打开的原文件，导致后续代码无法定位原文件名运行；SaveCopyAs在SharePoint环境下需要注意路径格式、文件扩展名的完整性才能正常生效。

修正后的可运行代码 #

Dim file_name As String
Dim originalWB As Workbook
Dim savePath As String

' 绑定原工作簿对象，避免依赖ActiveWorkbook引发的对象错误
Set originalWB = Workbooks("Initiative Dashboard - Developing Careers.xlsm")
' 获取单元格指定的副本文件名，确保包含宏工作簿扩展名
file_name = originalWB.Worksheets("Initiative Dashboard").Range("M3").Value
If Right(file_name, 5) <> ".xlsm" Then
    file_name = file_name & ".xlsm"
End If

' 定义SharePoint保存路径（使用空格而非%20，VBA会自动处理编码）
savePath = "https://heathrowportal.sharepoint.com/teams/ChangetheBusiness/Shared Documents/General/2. Master Docs/Initiative Monthly Dashboard/"

' 先保存原文件的最新更改
originalWB.Save
' 生成副本，原文件保持打开且文件名不变
originalWB.SaveCopyAs Filename:=savePath & file_name

关键优化点 #

• 固定原工作簿对象：用Set originalWB = Workbooks("...")替代ActiveWorkbook，避免窗口切换导致的对象指向错误。
• 补全文件扩展名：SaveCopyAs需要明确指定.xlsm扩展名，否则SharePoint可能无法正确识别文件类型。
• 路径格式优化：SharePoint路径直接使用空格，无需手动转义%20，VBA会自动处理编码转换，降低出错概率。
• 保留原文件状态：SaveCopyAs仅生成副本，原工作簿始终保持打开且文件名不变，支持每月重复运行代码。

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