Excel VBA编程 新建和删除工作表

Excel VBA编程新建和删除工作表
当用户制作的报表中工作表的数量超过3个，可以为工作簿新建工作表。

另外，对于工作簿中不需要的工作表，可以将其删除，以方便用户查看其他工作表中的数据。

1．新建工作表
无论工作簿中工作表的数量有多少个，为了在这些工作表的最后添加一个工作表，可以使用Add方法来实现，其代码如下：
Sub 新建工作表()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub
在上面的代码中使用Sheets.Count 属性进行返回一个Long值，它代表集合中对象的数量。

语法：表达式.Count
另外，为了在选择的工作表之前插入一个工作表，可以输入以下代码。

然后，在运行程序之前，首先选择指定的工作表，当运行之后，即可在该工作表之前添加一个工作表。

Sub 新建()
Sheets.Add
End Sub
2．删除工作表
用户可以对不需要的工作表，进行删除。

在VBA中，用户可以使用Sheets.Delete方法删除工作表。

语法：表达式.Delete
其中，表达式为一个代表Sheets对象的变量。

例如，输入以下代码，即可删除被选择的工作表。

Sub 删除()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.delete
Application.DisplayAlerts = True
End Sub
在上面的代码中，使用了Application.DisplayAlerts属性，该属性表示如果宏运行时Microsoft Excel显示特定的警告和消息，则该属性值为True。

语法：表达式.DisplayAlerts
在该属性的使用过程中，应注意以下几点内容：
●该属性的默认值为True。

但如果用户不想在宏运行时被无穷无尽的提示和警告消息所困扰，可
以将本属性设置为False；这样每次出现需要用户应答的消息时，Microsoft Excel将选择默认应
答。

●如果将该属性设置为False，则在代码运行结束后，Micorosoft Excel将该属性设置为True。

另外，当工作簿中的工作表只有第一个起作用时，用户可以将其他的工作表一次性进行删除。

例如，输入以下代码，即可完成删除工作簿中的所有工作表（只保留第一个）。

Sub 删除工作表()
Dim sh As Worksheet, s As New Collection, t, has As Boolean
'将选定工作表的名称添加到集合s
For Each sh In ActiveWindow.SelectedSheets
s.Add
Next
Application.DisplayAlerts = False
For Each sh In Sheets
has = True
For Each t In s
If = t Then has = False: Exit For Next
If has = True Then sh.delete
Next
Application.DisplayAlerts = True
End Sub。