VBA实现文件夹路径校验：不存在时提示用户选择路径

完整实现代码 #

Sub SaveAsPDFWithPathCheck()
    Dim saveLocation As String
    Dim finalSavePath As String
    Dim fd As FileDialog
    
    ' 预设初始保存路径
    saveLocation = "G:\documents\"
    
    ' 校验路径是否存在（Dir函数判断文件夹，需加vbDirectory参数）
    If Dir(saveLocation, vbDirectory) <> "" Then
        ' 路径存在，拼接完整文件名
        finalSavePath = saveLocation & "myfile.pdf"
    Else
        ' 路径不存在，弹出文件夹选择对话框
        Set fd = Application.FileDialog(msoFileDialogFolderPicker)
        With fd
            .Title = "请选择保存PDF的文件夹"
            .AllowMultiSelect = False
            ' 如果用户选择了文件夹
            If .Show = -1 Then
                saveLocation = .SelectedItems(1) & "\" ' 加上路径分隔符，避免拼接时出错
                finalSavePath = saveLocation & "myfile.pdf"
            Else
                ' 用户取消选择，退出子程序
                MsgBox "未选择保存文件夹，操作取消。"
                Exit Sub
            End If
        End With
        Set fd = Nothing
    End If
    
    ' 执行PDF保存操作（以Excel为例，根据实际对象调整）
    On Error Resume Next ' 捕获保存错误
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=finalSavePath, _
        Quality:=xlQualityStandard
    On Error GoTo 0
    
    ' 提示保存结果
    If Err.Number = 0 Then
        MsgBox "PDF已成功保存至：" & finalSavePath
    Else
        MsgBox "保存失败，请检查权限或路径是否正确。"
    End If
End Sub

关键部分说明 #

• 路径校验：使用Dir(saveLocation, vbDirectory)判断文件夹是否存在，返回空字符串则表示路径不存在。
• 文件夹选择对话框：通过Application.FileDialog(msoFileDialogFolderPicker)调用系统文件夹选择窗口，AllowMultiSelect = False限制只能选单个文件夹。
• 路径拼接：用户选择文件夹后，手动添加\确保路径格式正确，避免拼接文件名时出现C:\Folder myfile.pdf这类错误格式。
• PDF保存：示例使用Excel的ExportAsFixedFormat方法，如果你是Word或其他Office程序，需替换为对应对象的保存方法（比如Word用ActiveDocument.ExportAsFixedFormat）。
• 错误处理：加入简单的错误捕获，避免因权限不足、文件被占用等情况导致程序崩溃。

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