使用SaveCopyAs时VBA出现运行时错误求助

以下是针对你代码中SaveCopyAs运行时错误的核心排查点和修复方案：

核心问题排查 #

• 非法文件名字符：Date函数返回的日期格式默认包含/（如2024/05/20），而Windows文件名不允许使用/，这是最常见的报错原因。
• 路径拼接冗余或错误：手动拼接路径时容易出现双斜杠（如C:\...\\HUT），导致系统无法识别有效路径。
• ActiveWorkbook引用不稳定：Copy工作表后直接调用ActiveWorkbook，可能因窗口激活异常导致引用错误。

修复后的代码 #

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取基础路径和文件夹名，避免硬编码工作簿名称
Dim basePath As String, folderName As String
basePath = ThisWorkbook.Worksheets("Start").Range("B14").Value
folderName = ThisWorkbook.Worksheets("Start").Range("K14").Value

' 构建合法的目标文件夹路径（自动处理斜杠）
Dim targetPath As String
targetPath = fso.BuildPath(basePath, folderName)

' 创建文件夹（如果不存在）
If Not fso.FolderExists(targetPath) Then
    fso.CreateFolder targetPath
End If

' 生成合法文件名：替换日期中的/为-
Dim fileName As String
fileName = folderName & " Open Orders " & Replace(Date, "/", "-") & ".xlsx"

' 保存工作表到新工作簿，用变量锁定新工作簿引用
Dim newWB As Workbook
ThisWorkbook.Sheets("Open Orders").Copy
Set newWB = ActiveWorkbook

' 使用SaveAs而非SaveCopyAs（SaveCopyAs适合备份已保存的文件，新工作簿用SaveAs更稳定）
newWB.SaveAs Filename:=fso.BuildPath(targetPath, fileName), FileFormat:=xlOpenXMLWorkbook
newWB.Close SaveChanges:=False

Set fso = Nothing
Set newWB = Nothing

关键修改说明 #

• 用FileSystemObject.BuildPath自动处理路径斜杠，避免手动拼接的错误。
• 用Replace(Date, "/", "-")替换日期中的非法字符，生成合法文件名。
• 用变量newWB锁定复制后的新工作簿，避免ActiveWorkbook引用不稳定的问题。
• 替换SaveCopyAs为SaveAs：SaveCopyAs主要用于备份已保存过的工作簿，新建的未保存工作簿用SaveAs更适配，且能指定文件格式。

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