对象不支持属性或方法ForEach循环

Question

您好我尝试使用For Each循环遍历工作簿的工作表。我的代码非常简单：

Dim visualsBook As Workbook
Set visualsBook = ThisWorkbook
For Each ws In visualsBook
   /action
Next

然而，我一直得到一个＆＃34;对象不支持属性或方法＆＃34;错误。有谁知道为什么会这样？

Answer 1

工作簿不是您可以循环使用的集合。请改用visualsBook.Worksheets。

For Each ws In visualsBook.Worksheets
   /action
Next

修改：visualsBook.Sheets包含图表和工作表，因此最好使用.Worksheets