VBA 新建工作表
Worksheets.Add：添加工作表
Worksheet.Name：为工作表设置名称
Sub sub4()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("关关教程1.xlsx")
'添加工作表
Set ws = wb.Worksheets.Add
'为工作表设置名称
ws.Name = "SheetXiaobu"
wb.Save '保存工作簿
End Sub
准备工作：先打开文件 关关教程1.xlsx
运行效果：
默认添加位置：在当前工作表的前面。
Sheets.Add详情
创建新的工作表，并选中新的工作表（设置为活动工作表）。
除创建工作表，还可以创建其它表单类型：图表等。
语法
Add (Before, After, Count, Type)
参数
| 参数名 | 说明 |
|---|---|
| Before | 新的工作表在指定表单的前面 |
| After | 新的工作表在指定表单的后面 |
| Count | 新增工作表的数量 |
| Type | 表单类型，默认为工作表。 |
示例
例：在最前与最后各添加一个Sheet。
Sub sub5_1()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks("关关教程1.xlsx")
'wb.Worksheets.Add
'添加在最前面
Set ws = wb.Worksheets.Add(Before:=wb.Worksheets.Item(1))
ws.Name = "Sheet0"
'添加在最后
Set ws = wb.Worksheets.Add(After:=wb.Worksheets.Item(wb.Worksheets.Count))
ws.Name = "Sheet9"
wb.Save '保存工作簿
End Sub