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

您好我正在尝试使用For Each循环遍历工作簿的工作表。我的代码很简单：对象不支持属性或方法ForEach循环

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

但是我不断收到一个“对象不支持属性或方法”的错误。有谁知道为什么会发生这种情况？

尝试'对于每个WS在visualsBook.Worksheets'假设你声明'WS作为Worksheet' – arcadeprecinct

@arcadeprecinct：这是一个有效的回答。你可能想把它放下来？ :) –

我不明白为什么每个人都在这个论坛上的评论答案。有一些真正的原因还是仅仅是习惯？ – jamheadart

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

For Each ws In visualsBook.Worksheets 
    /action 
Next

编辑：visualsBook.Sheets包含图表以及工作表，以便更好地利用.Worksheets

2016-09-23 12:58:34 arcadeprecinct

如果您希望节省接近无限的时间以剪切出四个字母，您还可以使用'.sheets'而不是'.worksheets'：D – jamheadart

@jamheadart：我希望您了解工作表和工作表之间的区别？ :) –

@SiddharthRout se，这就是为什么我只写了一条评论，现在我不得不学习新的东西！ – arcadeprecinct

回答