我明白这种卡在异常处理上的烦躁——尤其是明明加了错误逻辑却还是绕不过，还不能用Resume Next这种“一刀切”的方式。咱们一步步拆解这个问题，搞定它。

先搞清楚异常的根源 #

这个错误大概率是这几个原因导致的：

• 你遍历的Slide ID根本不存在（比如PPT里删除过幻灯片，残留了无效ID）
• 操作Slide对象时，对象已经被意外释放（比如跨上下文调用PPT对象模型）
• 你引用Slide的方式不对（比如混用了索引和ID，把索引当成ID用了）

针对性的解决方案 #

1. 先验证Slide有效性再操作 #

在尝试访问Slide之前，用Slides.FindByID()来确认这个ID是否存在——如果ID无效，这个方法会返回Nothing，这样你就能提前处理，避免触发异常：

Dim targetSlide As Slide
Set targetSlide = ActivePresentation.Slides.FindByID(yourSlideID)

If Not targetSlide Is Nothing Then
    ' 这里放心处理表格提取逻辑
    Dim shp As Shape
    For Each shp In targetSlide.Shapes
        If shp.HasTable Then
            ' 提取表格内容到数组的逻辑
            Dim tableData As Variant
            If Not shp.Table.DataBodyRange Is Nothing Then
                tableData = shp.Table.DataBodyRange.Value
                ' 把tableData存入你的目标数组
                ' ...
            Else
                ' 空表格，留空对应内容
                tableData = Empty
            End If
        End If
    Next shp
Else
    ' 无效ID，留空对应条目并跳过
    ReDim Preserve yourResultArray(UBound(yourResultArray))
    yourResultArray(UBound(yourResultArray)) = ""
End If

2. 用结构化错误处理精准捕获异常 #

既然不能用全局Resume Next，那就用On Error GoTo局部捕获这个特定异常，处理后回到循环继续执行：

For Each slideID In yourSlideIDList
    On Error GoTo SlideErrorHandler
    Dim currentSlide As Slide
    Set currentSlide = ActivePresentation.Slides(slideID)
    
    ' 遍历当前幻灯片的表格
    Dim shp As Shape
    For Each shp In currentSlide.Shapes
        If shp.HasTable Then
            If Not shp.Table.DataBodyRange Is Nothing Then
                Dim tableData As Variant
                tableData = shp.Table.DataBodyRange.Value
                ' 存入目标数组的逻辑
                ' ...
            End If
        End If
    Next shp
    
    ' 无错误时重置错误处理
    On Error GoTo 0
    Continue For

SlideErrorHandler:
    ' 确认是目标异常（先运行一次捕获错误码，确保匹配）
    If Err.Number = -2147024809 Then
        ' 留空对应条目
        ReDim Preserve yourResultArray(UBound(yourResultArray))
        yourResultArray(UBound(yourResultArray)) = ""
        ' 清除错误，回到循环
        Err.Clear
        On Error GoTo 0
        Continue For
    Else
        ' 其他未知错误，可选择弹窗提示或记录日志
        MsgBox "Unexpected error: " & Err.Description
        Err.Clear
        On Error GoTo 0
        ' 根据需求决定是否终止循环
        Exit For
    End If
Next slideID

注意：错误码-2147024809是Office对象模型中“无效参数”的典型错误码，对应你遇到的这个异常。可以先手动触发一次错误，确认Err.Number是否一致，确保精准捕获。

3. 提前生成有效Slide ID列表 #

如果你是自己维护了一个Slide ID列表，先过滤掉无效ID，从根源上避免异常：

Dim validSlideIDs As Collection
Set validSlideIDs = New Collection

Dim sld As Slide
For Each sld In ActivePresentation.Slides
    validSlideIDs.Add sld.SlideID
Next sld

' 之后只遍历这个有效ID集合，就不会碰到无效ID了
For Each slideID In validSlideIDs
    ' 处理表格提取逻辑
Next slideID

4. 注意PPT对象模型的上下文 #

如果你的代码是在其他Office程序（比如Excel）中调用PPT，一定要确保引用的是正确的Presentation对象，避免上下文混乱：

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Open("C:\YourPresentation.pptx")

' 操作pptPres.Slides，而不是ActivePresentation
Dim sld As Slide
For Each sld In pptPres.Slides
    ' 处理表格逻辑
Next sld

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