有网友问到如何获取工作表名的问题，在VBA中只需要使用For Each...Next语句遍历工作簿中所有的工作表
如下面的代码所示。
Sub SheetCount1()
Dim Sh As Worksheet
Dim s As String
For Each Sh In Worksheets
s = s & Sh.Name & Chr(13)
Next
MsgBox "工作簿中含有以下工作表:" & Chr(13) & s
End Sub
代码解析：
Sheetcount过程使用For Each...Next语句遍历工作簿中所有的工作表，并用消息框显示所有工作表名称。
第4行代码使用For Each...Next语句遍历Worksheets集合中所有元素。For Each...Next语句针对一个数组或集合中的每个元素，重复执行一组语句，语法如下：
For Each element In Group
[statements]
[Exit For]
[statements]
Next [element]
参数element是必需的，用来遍历集合或数组中所有元素的变量。
参数group是必需的，对象集合或数组的名称。
参数statements是可选的，针对对象集合或数组中的每一项执行的一条或多条语句。
第5行代码将返回的工作表的名称赋给字符串变量s。
运行SheetCount1过程结果如图所示。
