如何基于单元格值将工作表导出的PDF保存至指定子文件夹

下面是调整后的代码，新增了子文件夹路径拼接逻辑，同时加入了子文件夹不存在时自动创建的功能，避免导出报错：

Sub ExportToPDF()
    
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim mainFolder As String: mainFolder = "D:\NEWGIZA\"
    Dim subFolder As String: subFolder = ws.Range("M7").Value
    Dim fullFolderPath As String: fullFolderPath = mainFolder & subFolder & "\"
    Dim fileName As String
    
    ' 检查子文件夹是否存在，不存在则创建
    If Dir(fullFolderPath, vbDirectory) = "" Then
        MkDir fullFolderPath
    End If
    
    ' 拼接完整文件名（包含子文件夹路径）
    fileName = fullFolderPath & ws.Range("M5").Value _
        & " " & Application.Text(Month(Date), "[$-401]mmmm") & ".pdf"
 
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

关键改动说明 #

• 拆分路径为主文件夹、子文件夹变量，让代码结构更清晰易读
• 增加MkDir逻辑自动创建不存在的子文件夹，避免因路径不存在导致导出失败
• 将子文件夹路径完整拼接到文件名中，确保PDF保存到指定的目标位置

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