如何检查Project VBA中应用的筛选器是否存在有效返回结果？

核心解决思路 #

应用筛选器后无需依赖错误捕获跳过异常，直接通过校验筛选后视图中是否存在可见有效任务，判断当前筛选器是否有可导出内容，从根源避免无匹配结果时触发导出中断。
Project中任务对象的Visible属性可直接判断任务是否被筛选器显示，只要存在至少1个非空、非项目摘要的可见任务，即判定为有可导出内容，否则直接跳过当前筛选器的导出流程。

修正后代码 #

Sub BatchExportFilteredPDF()
    Dim i As Long
    Dim t As Task
    Dim visibleTaskCount As Long
    Dim exportName As String
    ' 假设FL数组已提前完成赋值
    ' 遍历数组时使用数组上下界，无需硬编码循环次数
    For i = LBound(FL) To UBound(FL)
        ' 应用当前筛选器
        FilterApply Name:=FL(i)
        visibleTaskCount = 0
        
        ' 遍历任务统计可见有效项
        For Each t In ActiveProject.Tasks
            ' 跳过空任务、ID=0的项目摘要任务，仅统计实际可见任务
            If Not t Is Nothing And t.ID <> 0 And t.Visible = True Then
                visibleTaskCount = 1 ' 只要存在1个有效任务就满足导出条件
                Exit For ' 提前退出遍历，减少不必要的性能消耗
            End If
        Next t
        
        ' 无有效可见任务直接跳过导出
        If visibleTaskCount = 0 Then
            Debug.Print "筛选器「" & FL(i) & "」无匹配结果，已跳过"
            GoTo NextLoop
        End If
        
        ' 满足条件才执行PDF导出
        exportName = ActiveProject.ProjectSummaryTask.Name & " " & FL(i)
        DocumentExport _
            FileName:="C:\temp\" & exportName, _
            FromDate:="01/07/22 6:00", _
            ToDate:="15/07/22 18:00", _
            FileType:=pjPDF
NextLoop:
    Next i
End Sub

优化说明 #

• 移除全局On Error Resume Next逻辑，通过前置校验完全规避无内容导出的触发场景，连续多筛选器无匹配结果也不会导致程序崩溃
• 循环使用LBound()/UBound()获取数组实际边界，后续调整FL数组内的筛选器数量时，不需要同步修改循环的起止值
• 遍历任务时找到第一个有效可见任务就立刻退出循环，任务量较大时可大幅缩短校验耗时
• 增加即时窗口日志输出，可快速定位哪些筛选器没有匹配结果，方便后续校验筛选规则

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