23-新建工作表的具体方法

excel交流

在“花名册分类”的作业里，moon2778加入了为不同地区建立工作表代码，让“沧海一滴”和“宝贝有酒窝”两个朋友都跟贴问了新建工作表的相关问题。有需要就有市场，呵呵......那我再在这里简单讲一讲我对新建工作表的认识，希望对大家学习有帮助。

        新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。
        如果我们想在当前工作表中新建一个工作表，代码可以写为：

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

复制代码

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

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

复制代码

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

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

复制代码

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


         Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
      有时，也许需要一步就添加多个工作表，那可用下面的代码：

1. <div><span microsoft="" yahei",="" simsun;"=""><div>
   
2. </div><div>        Worksheets.Add Count:=3   '添加三个工作</div><div>     </div></span></div><div></div>

复制代码

但是一次性添加多个工作表时，好像就无法同时对其重新命名了。