VBA调用Excel SaveAs时文件名含句点致文件格式异常如何解决

问题现象 #

打开Excel文件填充单元格内容后，需将文件保存至指定文件夹。生成的文件名要求包含带句点的当日日期，例如文件名为Template_Name_01.01.2022时，文件后缀会被错误识别为.2022。
原有实现代码如下：

Dim OriginalFileName As String
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Date
    
OriginalFileName = fileName
Dim fileNumber As Integer
fileNumber = 1

Do Until nameFree = True
    
    nameCheck = Dir("G:\Argus\_Deal Tracker 3.0\Deals_Inv Mgmt\" & fileName)
    
    If nameCheck = "" Then
        xlBook.SaveAs fileName:="G:\Argus\_Deal Tracker 3.0\Deals_Inv Mgmt\" & fileName, FileFormat:=xlOpenXMLStrictWorkbook
        nameFree = True
    Else
        fileName = OriginalFileName
        fileName = fileName & " (" & fileNumber & ")"
        fileNumber = fileNumber + 1
    End If

Loop

现存异常：

• 即使在SaveAs方法中明确指定FileFormat参数为xlOpenXMLStrictWorkbook，文件仍会被保存为.2022格式
• 尝试手动在文件名末尾追加.xlsx扩展名后，本机可正常运行，但在设置了隐藏文件扩展名的电脑上会触发运行错误，方案无法通用

问题根因 #

当文件名包含多个句点时，Excel会默认将最后一个句点后的字符串识别为文件扩展名。即使指定了FileFormat参数，只要传入的文件名未显式携带匹配的标准扩展名，就会出现后缀识别错误。
之前追加.xlsx后在隐藏扩展名的电脑上报错，并非系统设置导致，而是代码中重名检查的目标文件名和实际保存的文件名不一致引发的逻辑错误，和系统是否隐藏已知文件扩展名无关。

修复方案 #

按以下规则调整代码即可彻底解决问题，不受系统区域设置、扩展名显示设置影响：

• 用Format函数显式指定日期格式，固定使用点分隔的日期形式，避免不同电脑区域设置导致日期格式混乱
• 构造基础文件名时，直接追加和FileFormat匹配的标准扩展名，xlOpenXMLStrictWorkbook对应扩展名为.xlsx
• 重名检查、重名序号拼接、最终保存全流程，文件名统一携带正确扩展名，保证路径逻辑一致
• 重名追加序号时，将序号插入文件名主体和扩展名之间，避免破坏后缀结构
• 调用SaveAs时保持FileFormat参数和扩展名的匹配关系

修正后可直接运行的代码：

' 统一定义保存路径和对应格式的扩展名，方便后续维护
Const SAVE_PATH As String = "G:\Argus\_Deal Tracker 3.0\Deals_Inv Mgmt\"
Const TARGET_FILE_EXT As String = ".xlsx"

Dim OriginalFileName As String, fileName As String
Dim fileNumber As Integer, nameCheck As String

' 显式指定dd.mm.yyyy格式的日期，拼接基础文件名和标准扩展名
fileName = "Template_" & Nz(rs!Street, "Address") & "_" & Format(Date, "dd.mm.yyyy") & TARGET_FILE_EXT
OriginalFileName = fileName
fileNumber = 1

Do
    nameCheck = Dir(SAVE_PATH & fileName)
    If nameCheck = "" Then
        ' 文件名与FileFormat完全匹配，不受系统扩展名显示设置干扰
        xlBook.SaveAs Filename:=SAVE_PATH & fileName, FileFormat:=xlOpenXMLStrictWorkbook
        Exit Do
    Else
        fileNumber = fileNumber + 1
        ' 序号插入文件名主体和扩展名之间，避免出现后缀异常
        fileName = Replace(OriginalFileName, TARGET_FILE_EXT, " (" & fileNumber & ")" & TARGET_FILE_EXT)
    End If
Loop

提示：如果后续需要切换保存格式（比如存为启用宏的.xlsm格式），只需修改TARGET_FILE_EXT常量和对应的FileFormat参数即可，不需要调整其他文件名拼接逻辑。

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