VBA中SaveAs方法对特定文件名失效问题咨询

你遇到的这个问题，大概率是Windows系统的路径长度限制在搞鬼，我来帮你拆解并给出解决方案：

问题根源 #

你能成功保存的Test.xlsx路径+文件名很短，而失败的那个路径+文件名明显冗长——Windows传统的MAX_PATH限制是260个字符（包含完整路径、文件名，以及系统需要的终止符），一旦超过这个长度，包括VBASaveAs在内的普通文件操作API都会直接失败。另外快速排查了下你给出的文件名，没有Windows禁用的特殊字符（/\:*?"<>|这类），所以核心问题就是路径长度超标。

解决方案 #

1. 直接精简路径/文件名 #

最省心的办法就是简化文件名或者缩短文件夹层级：比如把长文件名里的冗余信息（重复的日期、员工全称这类非必要内容）砍掉，或者把文件存到层级更少的文件夹里，确保完整路径+文件名的总长度控制在260字符以内。

2. 启用Windows长路径支持并调整VBA代码 #

如果必须保留原路径和文件名，可以先开启Windows的长路径支持，再修改VBA里的路径格式：

• 第一步：开启长路径支持
  按Win+R输入regedit打开注册表编辑器，找到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem，把LongPathsEnabled的值改成1（如果没有这个项，就新建一个DWORD类型的键值）。修改后需要重启电脑生效。
• 第二步：修改VBA路径格式
  在你的文件名前加上\\?\前缀（注意必须使用绝对路径，不能用相对路径），示例代码如下：

  Dim FilNameRq1 As String
  Dim FormattingWbk As Workbook
  ' 替换成你的实际绝对路径，记得加\\?\前缀
  FilNameRq1 = "\\?\C:\paer\Test Environment\Prep 01-25-18 12-00-59 PM\Classified Share Drive Report - Privates and Restricteds-en-None Members - WW0533969 - JOHN DIGGLE- 11-05-2017.xlsx"
  Set FormattingWbk = ThisWorkbook ' 根据你的实际工作簿对象调整
  FormattingWbk.SaveAs FilNameRq1
  

3. 清理文件名中的潜在异常字符 #

虽然看起来你的文件名没问题，但可以用VBA自动清理掉可能存在的全角空格、不可见字符或者多余空格，避免隐性问题：

' 清理文件名中的非法字符和冗余空格
Function CleanFileName(strFileName As String) As String
    Dim illegalChars As Variant
    Dim i As Integer
    ' 定义Windows禁用的文件名字符
    illegalChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    ' 替换非法字符为空
    For i = LBound(illegalChars) To UBound(illegalChars)
        strFileName = Replace(strFileName, illegalChars(i), "")
    Next i
    ' 把多个连续空格替换成单个空格，再去掉首尾空格
    strFileName = Replace(strFileName, "  ", " ")
    CleanFileName = Trim(strFileName)
End Function

保存前调用这个函数处理文件名：

FilNameRq1 = CleanFileName(FilNameRq1)
FormattingWbk.SaveAs FilNameRq1

内容的提问来源于stack exchange，提问作者Student of the Digital World