Add方法创建工作簿或工作表
1、Add方法创建新的工作簿
语法:workbooks对象.add(temple), 其中temple为参数可选
另外还可以指定工作簿中工作表数量,如:
Dim bbb As Workbook
Application.SheetsInNewWorkbook = 5
Set bbb = Workbooks.Add
bbb.SaveAs fileName:="你好"
如果没有指定工作表数量,则默认创建空的工作簿
2、Add方法创建一个新工作表并使其成为活动工作表
语法:worksheets对象.Add(Before,After,Count,Type) , 所有参数均可选
说明:
-
参数Before和参数After只能二选一。
-
参数Before指定一个工作表,新添加的工作表放置在该工作表之前。
-
参数After指定一个工作表,新添加的工作表放置在该工作表之后。
-
参数Count指定要添加的工作表数量,默认值为1。
'在工作表最后插入3张工作表,多个参数要用逗号隔开 Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=3 '当前活动工作表名字改为newsheet ActiveSheet.Name