给工作薄增加一个工作表，以及删除活动的工作表VBA

nnsea

Sub MyNZ()

Worksheets.Add

Application.DisplayAlerts = False

ActiveSheet.Delete

Application.DisplayAlerts = True

End sub

代码的解析说明：上述代码过程将增加一个工作表,然后删除活动的工作表，增加利用的Add方法，删除利用的是delete的方法，中间屏蔽了弹出警示提示，在删除之后又恢复了这个提示。其实上述代码对于整个工作薄的表明来看，没有任何的变化。