摘要
这篇文章包含 Microsoft Visual Basic for Applications 循环遍历活动工作簿中所有工作表的宏 （Sub 过程）。该宏还显示每个工作表的名称。
更多信息
Microsoft 提供的编程示例仅用于说明，没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。尝试示例宏，请执行以下步骤：
-
新的模块工作表中键入下面的宏代码。
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
若要运行宏，请将插入点放在"子 WorksheetLoop()，"行，然后按 F5。
该宏将循环访问该工作簿并显示每次循环运行的具有不同的工作表名称的消息框。请注意此宏将仅显示工作表的名称;它不会显示在工作簿中的其他类型的工作表的名称。您还可以使用每个循环循环遍历所有工作簿中的工作表。
-
新的模块工作表中输入下面的宏代码。
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
若要运行宏，请将插入点放在"子 WorksheetLoop2()，"行，然后按 F5。
该宏的工作方式与 WorksheetLoop 宏，不同之处在于，它使用不同类型的循环来处理所有活动工作簿中的工作表。
参考
有关获取帮助 Visual Basic for Applications 的其他信息，请参阅以下文章 Microsoft 知识库中相应的文章：
VBA: Visual Basic for Applications 的编程资源
OFF2000: Visual Basic for Applications 的编程资源
