遍历在Excel VBA书籍和床单
下面我们就来看看在Excel VBA程序，通过所有打开的工作簿和工作表，并显示所有名称循环。
现状：
添加以下代码行到命令按钮：
1.首先，我们声明两个对象和一个变量。类型工作簿的一个对象，我们称之为书，工作表我们称之为片类型的对象，其类型为String的变量我们称之为文本。
Dim book As Workbook, sheet As Worksheet, text As String
2.我们通过所有打开的工作簿要循环。要做到这一点，添加以下代码行：
For Each book In Workbooks
3.我们写作文“工作簿”，该工作簿的名称，以及文本“工作表：‘’的可变文本
text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
注意：您可以使用＆运算符来连接（加盟）元素要开始一个新行，你可以使用vbNewLine
4.要遍历一个工作簿中的所有工作表，添加以下代码行：。
For Each sheet In book.Worksheets
5我们写一个工作簿的工作表的名称可变文本。
text = text & sheet.Name & vbNewLine
6.关闭第二循环。
Next sheet
7.添加一条白线。
text = text & vbNewLine
8.不要忘记关闭第一个循环。
Next book
9.最后，我们使用显示一个MsgBox可变文本。
。
MsgBox text
10.测试程序，你单击命令按钮之前，给您的工作表的一些描述性的名称，并打开一个空白工作簿具有三个工作
结果：
