VBA保存文件名中段含句点的Excel文件时，SaveAs执行报错但调试可正常运行

你碰到的是VBA实现工作簿自动保存时非常典型的状态类异常，和对象引用方式、Excel格式探测逻辑的偶发偏差直接相关，对应可落地的修改点如下：

• 替换不稳定的ActiveWorkbook引用
  直接运行宏时如果是绑定按钮触发、或是被其他流程调用改变激活状态，Excel的激活工作簿句柄可能还未完全完成初始化；逐行调试时因为断点暂停的时间差，等对象加载完成了自然能正常运行。把原来的ActiveWorkbook().SaveAs file替换为显式绑定的工作簿对象，比如用ThisWorkbook指定代码所在的目标工作簿，从根源上避免对象引用偏移的问题。
• 补全SaveAs的显式参数，规避Excel格式识别逻辑的偶发bug
  你构造的文件名在年、月字段间插入了句点，例如2024.06 EF Vol by Customer.xlsx这类格式，未指定FileFormat参数时，Excel会自动从文件名尾部向前扫描句点定位文件后缀，直接运行时偶发会因为扫描逻辑的时序问题错误识别文件类型，触发保存报错。
  直接在SaveAs语句里补全固定参数，不让Excel做猜测式判断，修改后的代码片段：

  ' 显式指定无宏xlsx格式，自动处理重名冲突
  ThisWorkbook.SaveAs _
    Filename:=file, _
    FileFormat:=xlOpenXMLWorkbook, _
    ConflictResolution:=xlLocalSessionChanges
  

• 简化冗余判断逻辑，减少隐式状态偏差
  原来判断fac字段是否带尾随空格的if分支完全可以简化，在读取字段时直接用Trim去掉首尾空格即可：

  fac = Trim(Left(Sheets(2).Name, 3))
  

  同时建议在模块最顶部加上Option Explicit，强制声明所有变量，避免因为隐式类型转换、未定义变量的偶发问题。

注：不需要删除文件名中年、月之间的分隔句点，逐行调试可正常保存就说明该命名格式完全合法，报错和命名字符本身没有关系。

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