检查工作表中是否存在任何列表对象

Question

如果我循环浏览我的工作表并想测试给定工作表中是否存在任何 ListObjects，我该怎么做？我试过这个：

Dim daysoftheweek As Worksheet
For Each daysoftheweek In Sheets
If Not daysoftheweek.ListObjects Is Nothing Then
'Do Something Here - Only If The Sheet Contains A List Object
End If
Next

但即使工作表不包含 ListObject，IF 条件块仍会运行。

Answer 1

Worksheet.ListObjects是一个集合，所以它不是Nothing。就像 Paul Bica 评论的那样，您想要计算集合中有多少对象。尝试这个：

Dim daysoftheweek As Worksheet

For Each daysoftheweek In Sheets
    If daysoftheweek.ListObjects.Count > 0 Then
        'Do Something Here - Only If The Sheet Contains A List Object
    End If
Next