求Excel VBA实现：创建以Q2单元格内容命名的文件夹并将工作表导出PDF存入，含文件夹存在校验

Sub Autosave2()
    Dim vDir As String
    Dim pdfname As String
    Dim fileSaveName As String
    Dim targetFolderPath As String
    Dim FSO As Object
    
    pdfname = ActiveSheet.Range("Q2").Value
    vDir = "\\Reports\Internal PO Log\PO pdfs\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 空值校验，避免生成无意义的空命名文件夹
    If Trim(pdfname) = "" Then
        MsgBox "Q2单元格内容为空，请填写对应PO编号后重试"
        Exit Sub
    End If
    
    ' 拼接目标文件夹完整路径
    targetFolderPath = vDir & pdfname
    
    ' 文件夹存在校验：存在则直接终止流程
    If FSO.FolderExists(targetFolderPath) Then
        MsgBox "对应PO的文件夹已存在，操作终止，不会执行任何后续写入操作"
        Exit Sub
    End If
    
    ' 不存在则新建对应名称的文件夹
    FSO.CreateFolder targetFolderPath
    
    ' 拼接PDF保存路径，存入新建的同名文件夹
    If LCase(Right(pdfname, 4)) = ".pdf" Then
        fileSaveName = targetFolderPath & "\" & pdfname
    Else
        fileSaveName = targetFolderPath & "\" & pdfname & ".pdf"
    End If
    
    ' 执行PDF导出
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fileSaveName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
    MsgBox "PDF已成功保存，路径：" & fileSaveName
End Sub

功能匹配说明 #

• 自动以Q2单元格内容为名称，在固定根路径下创建独立文件夹
• 导出的PDF自动存入刚创建的同名文件夹内
• 前置校验目标文件夹存在性：只要文件夹已存在，直接弹窗提示并终止全部流程，不会执行新建文件夹、导出文件的后续操作
• 修复了原代码的几个常见新手坑：
  • 原路径字符串多写了转义斜杠，会导致网络路径识别失败，已修正为正确的网络路径格式
  • 原变量声明存在隐式类型问题：原代码Dim strFileExists, pdfname, fileSaveName As String仅最后一个变量为字符串类型，其余为可变类型，容易引发路径拼接错误，已全量明确变量类型，删除未使用的冗余变量
  • 原PDF后缀判断逻辑存在缺陷：仅判断右侧3位字符是否为pdf，遇到已带.pdf后缀的文件名会导致后缀重复，已优化为兼容大小写的完整后缀判断
  • 删除了原代码中无意义的路径弹窗，改为导出完成后提示实际保存路径，减少冗余弹窗干扰

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