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

excel交流

在“花名冊分類”的作業(yè)里，moon2778加入了為不同地區(qū)建立工作表代碼，讓“滄海一滴”和“寶貝有酒窩”兩個(gè)朋友都跟貼問了新建工作表的相關(guān)問題。有需要就有市場，呵呵......那我再在這里簡單講一講我對新建工作表的認(rèn)識，希望對大家學(xué)習(xí)有幫助。

        新建一個(gè)工作表（Worksheet)，要調(diào)用工作表(Worksheet對象）的Add方法（可以建制一個(gè)新建工作表的宏來查看相關(guān)的代碼）。
        如果我們想在當(dāng)前工作表中新建一個(gè)工作表，代碼可以寫為：

1. 
   
2.            Worksheets.Add '新建的工作表的位置在當(dāng)前活動(dòng)工作表的前面
   
3.         

復(fù)制代碼

此時(shí)，新建的工作表Excel默認(rèn)把它放在活動(dòng)工作表的前面，如果我們需要改變它的位置也是可以的。例如：

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

復(fù)制代碼

試了以上的代碼，我們會(huì)發(fā)現(xiàn)，新添加的工作表都是采用“老大、老二、老三.....”的命名方式，如果你需要為新添加的工作表改一個(gè)名字，也是可以的，只需要再添加一句代碼即可：

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

復(fù)制代碼

如果想更簡單點(diǎn)，這句代碼還可以合二為一：


         Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一個(gè)名稱為“abc”的工作表
      有時(shí)，也許需要一步就添加多個(gè)工作表，那可用下面的代碼：

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

復(fù)制代碼

但是一次性添加多個(gè)工作表時(shí)，好像就無法同時(shí)對其重新命名了。