VBA宏保存文件路径验证异常，提示无效路径求助

原代码的核心问题 #

• 逻辑搞反了：你现在是检查要保存的文件是否存在，而非先验证用户输入的文件夹路径是否有效
• 路径拼接有问题：混用+和&，还多写了\\（VBA里单个\就够），也没处理用户输入路径末尾是否带斜杠的情况，容易拼出无效路径
• Dir函数用错了：默认是检查文件，要判断文件夹是否存在，必须加vbDirectory参数，不然识别不了有效文件夹

修正后的代码 #

Dim CurrDate As String
Dim SaveLoc As String
Dim SaveBook As String
Dim fso As Object

' 初始化文件系统对象，更可靠地校验路径
Set fso = CreateObject("Scripting.FileSystemObject")

CurrDate = Format(Date, "MMDDYY")

' 循环获取有效路径，直到用户输入正确或取消
Do
    SaveLoc = InputBox("请指定文件保存的文件夹路径：")
    ' 处理用户取消输入的情况
    If SaveLoc = "" Then Exit Sub
    
    ' 校验文件夹是否存在
    If fso.FolderExists(SaveLoc) Then
        ' 统一处理路径末尾的斜杠，避免拼接错误
        If Right(SaveLoc, 1) <> "\" Then SaveLoc = SaveLoc & "\"
        SaveBook = SaveLoc & "MyFile - " & CurrDate
        
        ' 检查目标文件是否存在，增加覆盖提示
        If Dir(SaveBook & ".xlsm") <> "" Then
            If MsgBox("目标文件已存在，是否覆盖？", vbYesNo) = vbYes Then
                ActiveWorkbook.SaveAs Filename:=SaveBook & ".xlsm"
            End If
        Else
            ActiveWorkbook.SaveAs Filename:=SaveBook & ".xlsm"
        End If
        Exit Do
    Else
        MsgBox "输入的路径无效，请重新输入！"
    End If
Loop

关键改进点 #

• 用FileSystemObject替代Dir校验文件夹，兼容性和可靠性更强
• 增加循环输入逻辑，用户输错后不用重启宏，直接重输就行
• 统一处理路径末尾的斜杠，避免出现C:\Folder\\File这类错误路径
• 加上明确的文件后缀（比如.xlsm），避免保存格式不符合需求
• 处理用户取消输入的场景，防止宏报错
• 增加文件存在时的覆盖提示，更贴合团队协作的使用场景

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