看来你在给Excel VBA添加自定义另存为对话框时遇到了代码错误，我帮你修复并完善这段逻辑，解决时间戳格式和对话框交互的问题：

原代码的核心错误点 #

你提供的代码片段里有一个明显的语法错误：

• 时间戳格式字符串不完整：Format(Now, "yyyy-mm-...") 没有写完合法的日期时间格式，这会直接导致VBA编译失败
• 另外大概率没有正确处理SaveAsUI参数和Cancel参数，这会导致默认对话框和自定义对话框重复弹出，或者保存逻辑混乱

完整的修复代码 #

把这段代码替换到你的ThisWorkbook模块中（注意：必须放在ThisWorkbook模块，不能放在普通模块）：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sFileName As String
    Dim sDateTime As String
    Dim defaultFilePath As String
    
    ' 仅在用户触发"另存为"操作时执行自定义逻辑（避免干扰普通Ctrl+S保存）
    If SaveAsUI Then
        ' 1. 生成合法的带时间戳默认文件名（避免冒号等非法字符）
        sDateTime = Format(Now, "yyyy-mm-dd hh-mm-ss")
        ' 提取原工作簿的名称前缀（去掉后缀），拼接时间戳
        sFileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & " (" & sDateTime & ")"
        
        ' 2. 设置默认保存路径：优先用原工作簿所在路径，新建文件则用Excel默认路径
        defaultFilePath = ThisWorkbook.Path
        If defaultFilePath = "" Then
            defaultFilePath = Application.DefaultFilePath
        End If
        
        ' 3. 弹出自定义另存为对话框，传入默认路径和文件名
        sFileName = Application.GetSaveAsFilename( _
            InitialFileName:=defaultFilePath & Application.PathSeparator & sFileName, _
            FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm, Excel Workbook (*.xlsx), *.xlsx")
        
        ' 4. 处理用户的选择
        If sFileName = "False" Then
            ' 用户点击了取消，取消本次保存操作
            Cancel = True
        Else
            ' 取消Excel默认的另存为流程，用用户选择的路径/文件名保存
            Cancel = True
            ThisWorkbook.SaveAs Filename:=sFileName
        End If
    End If
End Sub

关键逻辑说明 #

• 合法时间戳：用yyyy-mm-dd hh-mm-ss格式，避免文件名中不允许的:字符
• 路径处理：兼容已保存和新建文件的情况，确保对话框打开到正确的默认路径
• 对话框交互：用GetSaveAsFilename获取用户选择，既保留默认文件名，又允许用户修改路径和文件名
• 取消逻辑：通过Cancel=True取消Excel默认的另存为流程，避免重复弹出对话框，同时处理用户取消的场景

使用注意 #

1. 确保代码放在ThisWorkbook模块（在VBA编辑器左侧的项目窗口中找到ThisWorkbook，双击打开后粘贴代码）
2. 如果你的工作簿是宏启用的，要确保保存格式是.xlsm，代码里的FileFilter已经包含了这个选项
3. 可以根据需求修改文件名前缀，比如把Left(ThisWorkbook.Name, ...)替换成固定的前缀，比如"报表_"

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