Excel VBA导出工作表为PDF时触发运行时错误'13'类型不匹配

根因定位 #

报错核心是对象类型声明错误，不属于常规值类型不匹配场景，也是故障呈偶发特征的原因：

• 变量声明错误：Dim ws As Worksheets中Worksheets是工作表集合类型（对应工作簿内全部工作表的集合对象），但实际赋值给ws的是单个工作表对象，匹配的正确类型应为Worksheet（无末尾s）。重启Excel后首次运行时，VBA内存无残留对象缓存，类型校验宽松不会触发报错；首次运行结束后对象残留内存，第二次运行赋值时严格类型校验触发，直接抛出类型不匹配错误。
• 代码存在3个隐藏偶发bug：
  • Range、Worksheets调用未指定父对象，默认读取当前活动工作表内容，一旦运行时活动表不是存储Y5判断值的表，会出现值读取异常
  • PDF导出质量常量拼写错误：错写为xlQualityStandart，正确系统常量为xlQualityStandard，部分场景下会触发识别异常
  • 冗余的Select+ActiveSheet逻辑依赖当前选中状态，易受用户操作干扰触发异常

修复后稳定运行代码 #

Sub save_sheet_in_pdf()
    Dim ws As Worksheet ' 修正：单个工作表匹配正确的Worksheet类型，而非集合类型Worksheets
    Dim name_PDF As String
    Dim path_PDF As String
    Dim judgeWs As Worksheet
    
    ' 替换为Y5单元格实际所在的工作表名称
    Set judgeWs = ThisWorkbook.Worksheets("替换为Y5所在表的实际名称")
    
    name_PDF = "Test.pdf"
    path_PDF = "D:\Users\DIMAS\Documents\Work Documents\Organizational Development\07. PROJECT\" & name_PDF
    
    ' 显式读取指定工作表的Y5值，不受活动表切换影响
    If judgeWs.Range("Y5").Value = "PS" Then
        Set ws = ThisWorkbook.Worksheets("PensiunA")
    Else
        Set ws = ThisWorkbook.Worksheets("PensiunB")
    End If
    
    ' 直接调用工作表对象导出，无需选中工作表
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=path_PDF, _
        Quality:=xlQualityStandard, ' 修正常量拼写错误
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

部署说明 #

• 必须将代码中Set judgeWs = ThisWorkbook.Worksheets("替换为Y5所在表的实际名称")的占位符替换为你存放Y5判断值的工作表真实名称，否则会出现子脚本越界错误
• 若目标导出路径的文件夹不存在，会触发路径类报错，可根据需求补充文件夹自动创建逻辑
• 非必要不要在VBA代码中使用Select、ActiveSheet、ActiveCell这类依赖选中状态的写法，直接操作显式声明的对象可规避绝大多数偶发运行时错误。

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