VBA EXCEL 对象操作 - 新建工作表

From  http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=23#pid3118642

新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。

       

如果我们想在当前工作表中新建一个工作表，代码可以写为：

Worksheets.Add '新建的工作表的位置在当前活动工作表的前面

此时，新建的工作表Excel默认把它放在活动工作表的前面，如果我们需要改变它的位置也是可以的。例如：

Worksheets.Add before:=Worksheets("sheet2")  '在工作表sheet2之前添加一个工作表
Worksheets.Add before:=Worksheets(1)   '在最前面添加一个工作表
Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"
Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表

试了以上的代码，我们会发现，新添加的工作表都是采用“老大、老二、老三.....”的命名方式，如果你需要为新添加的工作表改一个名字，也是可以的，只需要再添加一句代码即可：

 Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
 ActiveSheet.Name = "abc"  '将新建的工作表更名为“abc”

如果想更简单点，这句代码还可以合二为一：

Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表

有时，也许需要一步就添加多个工作表，那可用下面的代码：

Worksheets.Add Count:=3   '添加三个工作