vba - 检查工作表中是否存在任何 ListObjects

Question

如果我循环浏览工作表并想要测试给定工作表中是否存在任何 ListObject，我该如何执行此操作？我试过这个:

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 条件 block 仍然运行。

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