作者：绿色风
分类：
时间：2022-08-18
浏览：140
楼主
杨开科 |
Sheets.Add 方法 新建工作表、图表或宏表。新建的工作表将成为活动工作表。
语法 表达式.Add(Before, After, Count, Type)
表达式 一个代表 Sheets 对象的变量。
参数
名称 必选/可选 数据类型 描述
Before 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之前。
After 可选 Variant 指定工作表的对象，新建的工作表将置于此工作表之后。
Count 可选 Variant 要添加的工作表数。默认值为 1。
Type 可选 Variant 指定工作表类型。可以为下列 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。如果基于现有模板插入工作表，则指定该模板的路径。默认值为 xlWorksheet。
返回值：一个 Object 值，它代表新的工作表、图表或宏表。
说明：如果同时省略 Before 和 After，则新工作表插入到活动工作表之前。
'本示例将新建工作表插入到活动工作簿的最后一张工作表之前- Sub Add_Newsheet1()
- ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
- End Sub
'本示例新建4张工作表（同时省略 Before 和 After，新工作表插入到活动工作表之前）- Sub Add_Newsheet2()
- Sheets.Add , , 4
- 'Sheets.Add Count:=4 '也可以写成这样
- End Sub
'本示例将新建工作表插入到Sheet1工作表之前，在写法上省略了Before:=- Sub Add_Newsheet3()
- Sheets.Add Worksheets("Sheet1")
- ' Sheets.Add Before:=Worksheets("Sheet1") '也可以写成这样
- End Sub
'本示例将新建工作表插入到Sheet1工作表之后，在写法上省略After:=- Sub Add_Newsheet4()
- Sheets.Add , Worksheets("Sheet1")
- ' Sheets.Add After:=Worksheets("Sheet1") '也可以写成这样
- End Sub
'本示例新建1张图表（Type:=xlChart），同时省略 Before 和 After，位置在活动工作表前- Sub Add_Newsheet5()
- Sheets.Add , , , xlChart
- ' Sheets.Add , , , Type:=xlChart '也可以写成这样
- End Sub
'本示例新建1张工作表，位置在所有工作表最前面- Sub Add_Newsheet6()
- Sheets.Add Sheets(1)
- 'Sheets.Add Sheets.Item(1) '也可以写成这样
- End Sub
'本示例新建1张工作表，位置在所有工作表最后面- Sub Add_Newsheet7()
- Sheets.Add After:=Sheets(Sheets.Count)
- 'Sheets.Add , Sheets(Sheets.Count) '也可以写成这样
- 'Sheets.Add After:=Sheets.Item(Sheets.Count) '还可以写成这样
- End Sub
 新建工作表、图表或宏表.rar
|
2楼
水星钓鱼 |
支持 |
3楼
bluexuemei |
学习! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一