基于3个单元格值保存启用宏工作簿的VBA代码问题

原代码无法运行的核心问题有两个：

1. 文件名包含非法字符：C2是NOW()生成的日期时间值，直接取值会返回系统默认格式的字符串（含冒号），而Windows文件名不允许冒号，导致保存失败。
2. 改动了原工作簿：使用SaveAs会将当前活动工作簿切换为新保存的文件，违背了“不改动原工作簿”的需求。

优化后的代码 #

Sub SavePlannerBackup()
    Dim wbOriginal As Workbook
    Dim sheet As Worksheet
    Dim folderPath As String
    Dim fileName As String
    
    Set wbOriginal = ActiveWorkbook
    Set sheet = wbOriginal.Sheets("Sheet1")
    folderPath = "C:\Art\"
    
    ' 检查目标文件夹是否存在，不存在则创建
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If
    
    ' 生成合规的文件名：转换日期格式避免非法字符
    fileName = sheet.Range("A2").Value & "_" & _
               sheet.Range("B2").Value & "_" & _
               Format(sheet.Range("C2").Value, "mm-dd hhmm") & ".xlsm"
    
    ' 创建原工作簿的副本，不改动原文件
    wbOriginal.SaveCopyAs folderPath & fileName
    
    ' 若原工作簿不是xlsm格式，需强制转格式时，替换上面的SaveCopyAs为以下代码：
    ' Dim wbBackup As Workbook
    ' Set wbBackup = Workbooks.Add
    ' wbOriginal.Sheets.Copy Before:=wbBackup.Sheets(1)
    ' wbBackup.SaveAs fileName:=folderPath & fileName, FileFormat:=52
    ' wbBackup.Close SaveChanges:=False
End Sub

关键改进说明 #

• 处理日期格式：用Format函数将C2的日期时间值转换成mm-dd hhmm格式的纯文本，彻底避免文件名中的非法字符。
• 保留原工作簿：使用SaveCopyAs直接生成原文件的完整副本，操作后原工作簿仍保持打开状态且无任何修改。
• 容错处理：增加文件夹检查逻辑，避免因目标文件夹不存在导致的报错。

额外提示 #

• 确保Sheet1的A2、B2单元格值不含文件名禁用字符（如\ / : * ? " < > |）。
• 若需要自动更新C2的时间戳，可以在代码开头添加sheet.Range("C2").Value = Now()，确保备份文件名使用当前最新时间。

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