MS Project VBA -如何查找当前活动的任务筛选器？

Sub FindActiveTaskFilter()
    Dim Filter As Object
    Dim ActiveFilter As String
    Dim FilterName As String
    
    ' 获取当前活动的任务筛选器名称
    ActiveFilter = ActiveProject.Filter
    
    ' 遍历所有任务筛选器
    For Each Filter In ActiveProject.TaskFilters
        FilterName = Filter.Name
        
        ' 如果筛选器名称与当前活动的任务筛选器名称相同，则找到了当前活动的任务筛选器
        If FilterName = ActiveFilter Then
            MsgBox "当前活动的任务筛选器是：" & FilterName
            Exit Sub
        End If
    Next
    
    ' 没有找到当前活动的任务筛选器
    MsgBox "没有找到当前活动的任务筛选器。"
End Sub