worksheets的基本操作，displayalerts显示警告框

worksheets(2)

worksheets("abc")

sheet1

dim ws as worksheet

for each ws in worksheets（遍历工作表）

worksheets.count工作表的数量

worksheets.add在活动工作表前加一个工作表。

Worksheets.Add Worksheets("hehe")在名为hehe的工作表前插入一个工作表

worksheets.add.name="abc"

worksheets(1).delete

application.displayalerts=false禁用警告框

sheet1.move  before，after

eg.:sheet1.move ,worksheets("工资表")移动到工资表的后边。

Sub t()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
Workbooks.Add，新建一个新工作簿
ws.Copy Worksheets(1)    将ws复制到新建工作簿的worksheets1前

Application.DisplayAlerts = False 不显示提示
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & ws.Name将当前工作簿保存到该工作簿的地址并命名为ws的name
ActiveWorkbook.Close关闭当前工作簿
Application.DisplayAlerts = True 重启显示提示
Next
End Sub