将两个静态工作表导出为单个PDF时遇Run-time error '1004'求助

错误现象 #

导出两个静态工作表为单个PDF时，触发以下错误：

Run-time error '1004': Document not saved. The document may be open, or an error may have been encountered when saving.

保存进程窗口显示完成后关闭，但实际未生成PDF文件。

原代码的问题分析 #

第一段代码的核心问题 #

Sub Save_pdf()

Dim Path As String
Dim Filnamn As String
Path = Sheet16.Range("IY2")
Fn = Sheet16.Range("IY3")
Fn2 = Path & "\" & Fn & ".pdf"
'Sheet29.ExportAsFixedFormat Type:=xlTypePDF, _
    Fn:=Path & "\" & Fn & ".pdf"
    Sheet16.Range("IY3") = ActiveWorkbook.Name    
ActiveWorkbook.Save
ActiveWorkbook.Worksheets(Array("Sheet1", "Sheet2")).PrintOut PrtoFileName:=Fn
End Sub

• 变量声明不完整：Fn、Fn2未声明，Filnamn定义后未使用，易引发隐式类型错误
• PrintOut参数错误：PrtoFileName拼写错误（应为PrToFileName），且未设置PrintToFile:=True，无法正确触发打印到文件的逻辑；同时Fn仅为文件名，未包含路径，可能导致保存到无权限的默认路径
• 错误覆盖文件名：Sheet16.Range("IY3") = ActiveWorkbook.Name会将带.xlsx后缀的工作簿名覆盖原文件名，导致PDF文件名格式混乱（如Book1.xlsx.pdf）

第二段代码的核心问题 #

Sub Save_pdf()

Dim Path As String
Dim Filnamn As String
Path = Sheet16.Range("IY2")
Fn = Sheet16.Range("IY3")
Fn2 = Path & "\" & Fn & ".pdf" 
ActiveWorkbook.Save
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fn2, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

• 变量声明不完整：Fn、Fn2未声明，Filnamn定义后未使用
• 导出范围错误：ActiveSheet.ExportAsFixedFormat仅导出当前激活的单个工作表，无法实现两个工作表合并导出为PDF的需求
• 未做路径与文件名校验：未检查目标路径是否存在，也未处理文件名中的非法字符（如:、/、*等），这是触发1004错误的常见原因

修正后的代码 #

Sub SaveSheetsAsPDF()
    Dim savePath As String
    Dim fileName As String
    Dim fullPDFPath As String
    
    ' 获取路径和文件名
    savePath = Sheet16.Range("IY2").Value
    fileName = Sheet16.Range("IY3").Value
    
    ' 确保路径末尾带有斜杠，避免拼接错误
    If Right(savePath, 1) <> "\" Then
        savePath = savePath & "\"
    End If
    
    ' 检查路径是否存在，不存在则创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 清理文件名中的非法字符（Windows文件名禁止的字符）
    fileName = Replace(fileName, ":", "")
    fileName = Replace(fileName, "/", "")
    fileName = Replace(fileName, "\", "")
    fileName = Replace(fileName, "*", "")
    fileName = Replace(fileName, "?", "")
    fileName = Replace(fileName, """", "")
    fileName = Replace(fileName, "<", "")
    fileName = Replace(fileName, ">", "")
    fileName = Replace(fileName, "|", "")
    
    ' 生成完整的PDF保存路径
    fullPDFPath = savePath & fileName & ".pdf"
    
    ' 导出指定的两个工作表为单个PDF
    ActiveWorkbook.Worksheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fullPDFPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
        
    MsgBox "PDF已成功保存至：" & fullPDFPath, vbInformation
End Sub

修正说明 #

• 变量规范：完整声明所有变量，避免隐式类型错误
• 路径校验：自动处理路径格式，不存在则创建，解决路径不存在导致的保存失败
• 文件名清理：移除Windows文件名的非法字符，防止因文件名不合法触发错误
• 正确导出范围：使用Worksheets(Array(...)).ExportAsFixedFormat直接导出多个工作表为单个PDF，这是Excel官方推荐的可靠方法
• 冗余操作移除：去掉不必要的ActiveWorkbook.Save（除非你需要先保存工作簿，否则不是导出PDF的必须步骤）

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