VBA通过浏览选择文件夹保存文件时路径错误问题排查

嘿，问题很明显——你虽然弹出了文件夹选择对话框，但根本没把用户选中的路径用到保存逻辑里！ActiveWorkbook.SaveAs在没指定完整路径时，会默认用当前工作簿的初始保存目录，这就是文件跑到上级文件夹的原因。

给你修改好的代码，我加了关键的路径捕获和容错处理：

Dim File_Name As String
Dim SelectedFolder As String

' 生成自定义文件名
File_Name = Format(Now(), "DDMMYYYY") & "_" & LName & EmpIN & "_" & Range("C6").Value & "_" & Range("J3").Value & "_PAT"

Application.DisplayAlerts = False
MsgBox "Please select the folder to save PAT"

With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    ' 检查用户是否点击了确定按钮
    If .Show = -1 Then
        SelectedFolder = .SelectedItems(1)
        ' 拼接完整保存路径：选中文件夹 + 路径分隔符 + 文件名 + 后缀
        ActiveWorkbook.SaveAs Filename:=SelectedFolder & "\" & File_Name & ".xlsm", FileFormat:=52
        MsgBox "文件已成功保存到：" & SelectedFolder & "\" & File_Name & ".xlsm"
    Else
        MsgBox "你取消了文件夹选择，文件未保存"
    End If
End With

Application.DisplayAlerts = True
ActiveWorkbook.Close

关键修改点说明： #

• 新增SelectedFolder变量专门存储用户选中的文件夹路径，把对话框的选择结果真正用起来
• 加了.Show = -1的判断，避免用户点击取消后代码继续执行导致报错
• 保存时强制拼接完整路径，必须加上\分隔符——不然会出现C:\TestFile.xlsm这种无效路径，系统自然会 fallback 到默认目录
• 新增了保存状态提示，让用户清楚操作结果

这样修改后，文件就会精准保存到你选中的目标文件夹里啦！

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