如何使用VBA保存名称含斜杠/的Excel工作簿

这个问题我之前也踩过坑——Windows文件系统会直接把/识别成路径分隔符，所以直接用包含/的文件名肯定会触发“找不到目录”的报错。不用移除斜杠的话，其实可以用视觉上和斜杠一致但合法的Unicode字符来替代，既满足你保留“斜杠”的需求，又能正常完成保存。

给你两种实用的方案：

方案1：替换为分数斜杠（最推荐） #

分数斜杠⁄（Unicode编码U+2044）看起来和普通斜杠/几乎完全一样，但它不属于Windows文件系统的禁止字符，完全可以用在文件名里。用VBA的Replace函数配合ChrW就能轻松实现替换：

Sub SaveWorkbookWithSlash()
    Dim originalName As String
    Dim validName As String
    Dim savePath As String
    
    originalName = "A3/File" ' 你的原始带斜杠文件名
    savePath = "C:\SomeDir\" ' 目标保存路径
    
    ' 把普通斜杠替换为合法的分数斜杠
    validName = Replace(originalName, "/", ChrW(&H2044))
    
    ' 执行保存（这里指定了xlsx格式，可根据需求调整）
    ActiveWorkbook.SaveAs Filename:=savePath & validName, FileFormat:=xlOpenXMLWorkbook
End Sub

替换后的文件名在Excel和文件资源管理器里显示出来，和原来的A3/File几乎没区别，完全不影响日常使用。

方案2：使用短文件名（仅作备选） #

如果你的保存路径是本地磁盘的传统路径（非网络共享路径），可以借助Windows的短文件名特性绕开限制，但这个方法局限性较大，而且短文件名可能会改变原名称的显示形式，所以只作为备选方案：

Sub SaveWithShortPath()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim targetDir As String
    targetDir = "C:\SomeDir\"
    
    ' 获取目标目录的短路径格式
    Dim shortDir As String
    shortDir = fso.GetAbsolutePathName(targetDir)
    
    ' 直接用包含斜杠的文件名保存（短路径下Windows会自动兼容处理）
    ActiveWorkbook.SaveAs Filename:=shortDir & "A3/File.xlsx"
End Sub

不过这个方法依赖Windows的短文件名功能，部分系统可能已经禁用，且最终文件名会变成类似A3~1.xlsx的形式，所以优先推荐方案1。

补充说明：Windows文件系统本身严格禁止文件名包含/、\、:、*、?、"、<、>、|这些字符，所以本质上我们没法直接用原始的/作为文件名的一部分，只能用合法的替代字符模拟视觉效果。

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