一.工作表对象

Sheet1      资源管理器里表的值,每个表唯一且不可修改
Sheets(1)   工作表标签里的顺序
Sheets("一月")
  方法            属性
  Select          Count
  Add             Name
  Delete
  Copy
  

二.Application对象

Excel.Application.DiaplayAlerts = False  //取消警告
Excel.Application.DiaplayAlerts = True
Excel.Application.ScreenUpdating = False //取消屏幕更新
Excel.Application.ScreenUpdating = True

三.技巧

遍历所有工作表
for i=1 to Sheets.Count
当前工作表之后添加新表( :=  给参数赋值)
Sheets.Add after:=Sheets(Sheets.Count)
Sheets.Copy after:=Sheets(Sheets.Count)
03-05 16:05