使用VBA保存文件时，文件名含点号为何无法识别正确格式？

问题原因 #

Windows系统会将文件名中最后一个点号后的内容识别为文件扩展名。你的代码里timeperiod使用了hh.mm.ss格式，导致最终文件名结构类似2024_05_20 14.30.45 ID TitleInternal Tool，系统会把最后一个点后的内容误判为无效扩展名，从而出现扩展名未定义的问题。

解决方案 #

显式指定宏启用工作簿的扩展名.xlsm（与你使用的xlOpenXMLWorkbookMacroEnabled格式对应），确保系统能正确识别文件类型。修改后的代码如下：

Sub save_update()

Dim path As String
Dim proj_id As String
Dim proj_title As String
Dim timeperiod As String

path = Application.ActiveWorkbook.Path
proj_id = ActiveWorkbook.Sheets("master").Range("A2").Value
proj_title = ActiveWorkbook.Sheets("master").Range("A3").Value
timeperiod = Format(DateTime.Now, "yyyy_mm_dd hh.mm.ss")

' 显式添加.xlsm扩展名，确保格式识别正确
ActiveWorkbook.SaveAs FileName:=path & "\" & timeperiod & " " & proj_id & " " & proj_title & "Internal Tool.xlsm", _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

额外优化提示 #

如果工作簿还未保存过（ActiveWorkbook.Path会为空），可以添加判断逻辑避免报错：

If path = "" Then
    ' 弹出保存对话框让用户选择路径
    path = Application.GetSaveAsFilename(InitialFileName:=timeperiod & " " & proj_id & " " & proj_title & "Internal Tool.xlsm", _
                                        FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If path = "False" Then Exit Sub ' 用户取消保存时退出程序
End If

内容的提问来源于stack exchange，提问作者QQQ-17