Question

EXCEL如何让VBA程序自动切换下一个工作表

我有一个工作簿，内含N张工作表,每个工作表的名称没有规定，请问如何在VBA中做到当第一个工作表的任务执行完后程序再执行第二个工作表的任务，以此类推，直到把N张工作表的任务都执行完毕。请问各位高手，用哪些语句可以做到呢？例：一个工作簿有31个工作表，如何做到，第一个工作表（50行）执行一个过程后，程序识别到50行数据执行完后自动切换到第二个工作表执行第二个工作表中有效行数的过程，尔后再根据第二个工作表的执行情况由程序自动执行第三个工作表，以此类推直到把31个工作表都执行完毕。

以上，请各位专家赐教，谢谢！

Answer 1

1、管理数据要设置多个工作表，例如、表单、数据表(称作“数据库”)、引用表、筛选表、信息表、汇总报表、其他辅助(例如目录表)表等等，不可混淆。其中数据表专用来保存日常发生的数据。
2、将日常发生的数据保存在同一个工作表(“数据库”)中。如果数据源在多个工作簿或工作表中，首先要合并数据。
3、数据表是一维表，第一个字段是“行号”字段，“行号”字段各行内容由公式"=ROW()"形成
4、数据库表的标题行是1行，没有重复名称，字段名称之间不间隔空单元。
5、数据库表中除了“行号”字段，其他位置无公式设置。
6、数据库表中不设置复杂的格式，例如合并单元格、数据有效性等等。
7、日常发生的每个“事件”对应数据库表中的标题名称记录在数据库表的一行中。
总而言之，尽量将多工作表放在同一个工作簿中，尽量将随时发生的数据存放在同一个工作表中则非常有利于以后的数据管理；而用报表形式保存数据是不正确的，会给以后的数据管理和使用造成很大困难。

Answer 2

用vba代码
Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

Answer 3

Dim isheet As Worksheet
For Each isheet In ActiveWorkbook
你的代码
Next isheet
逐个工作表执行代码

Answer 4

Dim isheet As Worksheet
For Each isheet In ActiveWorkbook
你的代码
Next isheet
这个是通过循环激活各个表
如果想根据个人选择边个，可以这样写
sheets("表名").select

Answer 5

Dim isheet As Worksheet
For Each isheet In ActiveWorkbook
你的代码
Next isheet
这个是通过循环激活各个表
如果想根据个人选择边个，可以这样写
sheets("表名").select