|
当用户制作的报表中工作表的数量超过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显示特定的警告和消息，则该属性值为
|
