VBA用户窗体选择日期拼接文件名执行SaveAs时出现运行时错误

问题复现条件 #

• 实现目标：通过UserForm给用户提供两个日期选项，选中值作为工作簿另存为的文件名组成部分：
  • 活动工作表B6单元格存储的固定日期
  • 当前系统日期
• 已尝试方案：分别使用OptionButton控件、两个独立命令按钮实现选择交互，两种实现触发完全一致的错误
• 异常表现：未加入日期选择逻辑前，另存为功能可正常运行；加入逻辑后执行到SaveAs语句时报错。开发时预设日期格式为dd-mm-yy，认为该格式符合Windows文件名命名规则，无法定位错误来源。

问题根因 #

代码存在两个核心问题，直接触发SaveAs报错：

1. 日期类型隐式转换引入非法字符
   代码中theDate、TD均定义为Date类型，该类型仅存储日期对应的时间序列值，不保存格式信息。虽然代码中写了theDate = Format(Date, "dd-mm-yy")，但Format()返回的是字符串，赋值给Date类型变量时会被自动解析回时间序列，之前做的格式化完全失效。
   当把TD（Date类型）直接拼接到文件名字符串时，VBA会按照系统当前区域设置的短日期格式做隐式转换，大概率会生成带/等Windows文件名禁止的特殊字符，直接导致SaveAs失败。
2. 未指定完整保存路径
   代码中注释掉了路径拼接逻辑Application.ActiveWorkbook.Path &，仅给SaveAs传入纯文件名：如果当前工作簿是新建未保存状态（ActiveWorkbook.Path为空）、或者当前默认保存路径无写入权限，也会触发运行时错误。

修复代码 #

Private Sub btnOk_Click()
    ' 声明变量：格式化后的日期用String类型存储，避免隐式转换
    Dim theDate As String
    Dim Project As String
    Dim Name As String
    Dim Sheet As String
    Dim SaveString As String
    Dim ws As Worksheet
    Dim fullSavePath As String
    
    Set ws = ActiveSheet
    
    ' 按选项获取日期，直接格式化为符合文件名规则的字符串
    If Me.OptionButton1.Value Then
        theDate = Format(Date, "dd-mm-yy")
    ElseIf Me.OptionButton2.Value Then
        ' 读取B6值时同样做格式化，避免单元格格式导致非法字符
        theDate = Format(ws.Range("B6").Value, "dd-mm-yy")
    End If
    
    ' 读取文件名组成字段
    Project = ws.Range("B1").Value
    Name = ws.Range("B2").Value
    Sheet = ws.Name
    
    ' 拼接完整保存路径：使用当前工作簿所在路径，处理新建未保存场景默认存到桌面
    If ActiveWorkbook.Path <> "" Then
        fullSavePath = ActiveWorkbook.Path & "\"
    Else
        fullSavePath = Environ("USERPROFILE") & "\Desktop\"
    End If
    
    ' 拼接最终文件名，加校验替换所有非法字符兜底
    SaveString = Project & "_" & Name & "_" & Sheet & "_" & theDate
    ' 兜底替换文件名非法字符
    SaveString = Replace(Replace(SaveString, "/", "-"), ":", "-")
    
    ' 执行另存为
    ActiveWorkbook.SaveAs Filename:=fullSavePath & SaveString, FileFormat:=52 ' 52对应.xlsm格式
    
    ' 关闭窗体
    Unload Me
End Sub

额外排查提示 #

如果修复后仍报错，可在执行SaveAs前加一句Debug.Print fullSavePath & SaveString，在立即窗口查看最终生成的完整保存路径，检查是否存在非法字符、路径是否存在。

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