使用For Each Next遍历工作簿中所有工作表

For Each...Ne xt 语句

使用For Each...Ne xt语句遍历工作簿中所有的工作表，如下面的代码所示。#001Sub ShCount2( )

#002

Dim Sh As Worksheet #003

Dim s As String

#004

For Each Sh In Worksheet s

#005

s=s& https://www.360docs.net/doc/e65883056.html,& Chr(13)

#006

Next

#007 MsgBox"工作簿中含有以下工作表:"& Chr(13)& s

#008End Sub

代码解析：

过程使用For Each...Ne xt语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。

第4行代码使用For Each...Ne xt语句遍历Workshee ts集合中所有元素。For Each...Ne xt语句针对一个数组或集合中的每个元素，重复执行一组语句，语法如下：For Each element

In Group [statemen ts]

[Exit For] [statemen ts]

Next [element]参数element是必需的，用来遍历集合或数组中所有元素的变量。

是必需的，对象集合或数组的名称。

参数statement s是可选的，针对对象集合或数组中的每一项执行的一条或多条语句。

第5行代码将返回的工作表的名称赋给字符串变量s。

运行ShCount2过程结果如图23?1所示。