《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第三章第三节：遍历工作薄和工作表(For Each循环的利用)（上）
【分享成果，随喜正能量】命是什么？命是一个人活着的根基，是一切的前提，万般皆是命，半点不由人。人的一生，求求不来寿，争争不过命。只有生命在，才能活好每一天。
家是什么？家是一个人的牵挂，是一个人内心深处最柔软的地方，也是每一个灵魂的归处，人这一辈子，家庭和睦，父母安康，夫妻和美，子女懂事，就是最大的幸福。。
大家好，我们今日开始讲解工作簿(Workbook)和工作表(Worksheet)对象(Object)，我们经常讲的面向对象编程，这里的工作表和工作簿就是所谓的对象。对象是一个名词，每个对象有着自己的属性和方法。这些属性和方法就是我们要利用的工具。这个章节中我们将讲解到对象的层次结构、集合、属性和方法，同时还会讲解到工作簿的打开和关闭以及工作表的循环处理。由于这套教程是针对EXCEL而写的，所以这章内容非常重要。
大家好，我们在这讲中将讲解遍历循环语句，这种语句在VBA代码中利用的十分普遍，也是我们在VBA代码中经常利用的三种循环语句之一：For Each循环。下面我们将看到Excel vba中的一个程序，它遍历循环所有打开的工作簿和工作表，并显示所有的名称。
语法：
For Each element In group
[ statements ]
[ Exit For ]
[ statements ]
Next [ element ]
参数：
1）element 必需。用于循环访问集合或数组的变量。对于集合,element只能为Variant变量、通用对象变量或任何特定的对象变量。对于数组，element仅可是Variant变量。
2）group 必需。对象集合或数组（用户定义类型除外）的名称。
3）statements 可选。在每个项目上执行的一个或多个语句。
注意点：
- 如果group中有至少一个元素，则进入“For Each”循环。在进入循环后, 循环中的所有语句都将对group中的每一个元素执行。如果group中有多个元素，则继续为每个元素执行循环中的语句。group中不再有元素时，退出循环并继续执行“Next”语句后的语句。
- 可以将任意数量的Exit For语句作为另一种退出方式放置在循环中的任何位置。"退出" 通常在评估某些条件后使用, 例如,if…then…, 将执行下一个紧接着的语句。
- 可通过将“For Each...Next”循环放置在另一个该循环内来嵌套“For...Each...Next”循环。 但是，每个循环element必须是唯一的。
- 如果忽略Next [ element ]语句中的[ element ]，循环一样继续执行。不可随用户定义类型的数组一起使用“For Each...Next”语句，因为“Variant”不可包含用户定义类型。
下面代码中，我们将利用“For Each...Next”语句遍历所有打开的工作薄和每个工作薄的工作表的名称。
Sub mynzH() '遍历循环
Dim book As Workbook, sheet As Worksheet, text As String
For Each book In Workbooks
text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
For Each sheet In book.Worksheets
text = text & sheet.Name & vbNewLine
Next
text = text & vbNewLine
Next
MsgBox text
End Sub
代码截图：
代码讲解：
1）Dim book As Workbook, sheet As Worksheet, text As String 这句是对变量的声明，声明book、sheet、text分别为Workbook、Worksheet、String。
2）For Each sheet In book.Worksheets
text = text & sheet.Name & vbNewLine
Next
以上是内层循环，将提取每个工作表的名称。
3） For Each book In Workbooks
text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine
。。。。。
text = text & vbNewLine
Next
以上是外层循环讲提取每个工作薄的名称。
4） MsgBox text
将弹出一个对话框，告诉用户提取的内容。
- 注意：可以使用&运算符连接（联接）元素。若要开始新行，可以使用vbNewLine。
待续
本讲内容参考程序文件：工作簿03.xlsm
我20多年的VBA成果全在下面的资料中：
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
如需转载请保留出处：https://bianchenghao.cn/bian-cheng-ri-ji/8987.html