如何检查过滤器是否有任何结果？

Question

我应用多个过滤器（在数组中定义），通过它们运行并导出PDF。

当过滤器没有值时，代码停止，因为没有任何导出。

我正在使用在错误简历下上使用，但这是不可持续的。如果错误发生两次，它将再次破裂。

如何检查过滤器是否有任何结果？

For i = 1 To 18

    FilterApply name:=FL(i)
    
    names = ActiveProject.ProjectSummaryTask.name & " " & FL(i)
    
    DocumentExport FileName:="C:\temp\" & names, FromDate:="01/07/22 6:00", ToDate:="15/07/22 18:00", FileType:=pjPDF
        
Next

Answer 1

我找到了答案。实际上很容易！

    **SelectTaskField Row:=0, Column:="name"
    
    If ActiveCell.Text <> "" Then**

For i = 1 To 18

    FilterApply name:=FL(i)
    
    SelectTaskField Row:=0, Column:="name"
    
    If ActiveCell.Text <> "" Then

        If Left(FL(i), 1) = "_" Then ' create file name
            names = ActiveProject.ProjectSummaryTask.name & " " & Mid(FL(i), 2, Len(FL(i)))
        Else
            names = ActiveProject.ProjectSummaryTask.name & " " & FL(i)
        End If
        
        
        DocumentExport FileName:="C:\temp\" & names, FromDate:="01/07/22 6:00", ToDate:="15/07/22 18:00", FileType:=pjPDF
        
    End If

Next

Answer 2

我答案一个类似的问题以前在这里。我建议创建一个单独的函数以检查过滤器是否为空，

Public Function CurrentFilterHasTasks() As Boolean

   Dim result As Boolean
   On Error GoTo ErrHandler

   Application.SelectAll 'select everything in the current filter

   'Application.ActiveSelection.Tasks will fail if there are only blank rows in the active selection
   If Application.ActiveSelection.Tasks.Count > 0 Then
        result = True
   End If

   CurrentFilterHasTasks = result

   'call exit function here so the code below the error handler does not run
   Exit Function

ErrHandler:
   result = False
   CurrentFilterHasTasks = result
    
End Function

因此可以在代码中调用该方法：

For i = 1 To 18

    FilterApply name:=FL(i)
    
    If CurrentFilterHasTasks Then
       names = ActiveProject.ProjectSummaryTask.name & " " & FL(i)
    
       DocumentExport FileName:="C:\temp\" & names, FromDate:="01/07/22 6:00", ToDate:="15/07/22 18:00", FileType:=pjPDF
    End If
        
Next