使用For Each Next遍历工作簿中所有工作表
相关主题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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& & 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所示。