下面我们将查看Excel VBA中的一个程序，该程序遍历所有打开的工作簿和工作表，并显示所有名称。
情况：
将以下代码行添加到命令按钮：
1.首先，我们声明两个对象和一个变量。我们将工作簿类型的一个对象称为book，将工作表类型的一个对象称为sheet，将类型为String的变量称为文本。
昏暗的书作为工作簿，工作表作为工作表，文本作为 字符串
2.我们要遍历所有打开的工作簿。为此，请添加以下代码行：
对于 每本书在工作簿
3.我们将文本“ Workbook：”，工作簿的名称以及文本“ Worksheets：””写入变量文本。
文字=文字和“工作簿：”和book.Name和vbNewLine和“工作表：”和vbNewLine
注意：您可以使用＆运算符来串联（联接）元素。要开始新行，可以使用vbNewLine。
4.要遍历工作簿的所有工作表，请添加以下代码行：
对于 每个片在 book.Worksheets
5.我们将工作簿的工作表的名称写入变量文本。
文字=文字和工作表名称和vbNewLine
6.关闭第二个循环。
下一张
7.添加一条白线。
文字=文字和vbNewLine
8.不要忘记关闭第一个循环。
下本书
9.最后，我们使用MsgBox显示变量文本。
MsgBox文字
10.测试程序。在单击命令按钮之前，为工作表提供一些描述性名称，然后打开包含三个工作表的空白工作簿。
结果：
