添加與刪除工作簿的工作表.doc

添加與刪除工作簿的工作表1、在工作簿添加單個工作表中的代碼。 Sub Addsh() Dim Sh As Worksheet With Worksheets Set Sh = .Add(after:=Worksheets(.Count) Sh.Name = 工作 End With End Sub代碼解析：Addsh過程使用Add方法在工作簿中新建“工作”工作表。Dim Sh As Worksheet聲明變量Sh為工作表對象。.Add(after:=Worksheets(.Count)使用Add方法在工作簿的最后新建“工作”工作表。Add 方法應(yīng)用于Sheets和Worksheets對象時新建工作表、圖表或宏表，語法如下： expression.Add(Before, After, Count, Type)參數(shù)Before是可選的，指定工作表對象，新建的工作表將置于此工作表之前。參數(shù)After是可選的，指定工作表對象，新建的工作表將置于此工作表之后。如果Before和 After兩者均省略，則新建的工作表將插入到活動工作表之前。參數(shù)Count可選，要新建的工作表的數(shù)目。默認(rèn)值為 1。參數(shù)Type可選，指定新建的工作表類型。第5行代碼將添加的工作表重命名為“數(shù)據(jù)”。2、在工作簿中批量添加工作表的代碼。如果需要在工作簿中批量添加工作表，可以使用下面的代碼。 Sub Addsh_2() Dim i As Integer Dim sh As Worksheet For i = 1 To 10 Set sh = Sheets.Add(after:=Sheets(Sheets.Count) sh.Name = i Next End Sub代碼解析：Addsh_2過程使用For.Next 語句和Add方法在工作簿中添加10張工作表并將添加的工作表依次重命名。3、在工作簿中刪除所有工作表的代碼。刪除所有的工作表的代碼。 Sub Delsh() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets If sh.Name 數(shù)據(jù)庫 Then Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True End If Next End Sub代碼解析：Delsh過程使用Delete方法刪除工作簿中除了“數(shù)據(jù)庫”工作表以外所有的工作表。第3行代碼使用For Each.Next語句遍歷代碼所在工作簿中所有的工作表。第4行到第7行代碼判斷工作表名稱是否為“數(shù)據(jù)庫”,如果不是則使用Delete方法刪除。第5行代碼將Application對象的DisplayAlerts屬性設(shè)置為False，使刪除時不顯示如圖 所示系統(tǒng)警告對話框。圖 1 系統(tǒng)警告對話框第6行代碼使用Delete方法刪除工作表，應(yīng)用于工作表對象的Delete方法刪除指定的對象，語法如下： expression.Delete參數(shù)expression是必需的，該表達(dá)式返回“應(yīng)用于”列表中的對象之一。4、在工作簿中判斷是否存在相同名稱的工作表并添加單張新的工作表的代碼。4.1 在添加前先判斷工作簿中是否存在相同名稱的工作表,然后再進(jìn)行下一步的操作。對于單張工作表可以使用下面的代碼。 Sub Addsh_3() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name = 數(shù)據(jù) Then MsgBox 工作簿中已有數(shù)據(jù)工作表,不能重復(fù)添加! Exit Sub End If Next With Worksheets Set Sh = .Add(after:=Worksheets(.Count) Sh.Name = 數(shù)據(jù) End With End Sub代碼解析：Addsh_3過程在使用Add方法在工作簿中新建“數(shù)據(jù)”工作表時首先判斷工作簿中是否存在“數(shù)據(jù)”工作表，如果已存在“數(shù)據(jù)”工作表則不運行添加工作表的代碼而只顯示一個消息框進(jìn)行提示，如圖 所示。圖 2 工作表同名提示4.2 還可以使用錯誤處理語句來繞過錯誤，如下面的代碼所示。 Sub Addsh_4() Dim sh As Worksheet On Error GoTo line With Worksheets Set sh = .Add(after:=Worksheets(.Count) sh.Name = 數(shù)據(jù) End With Exit Sub line: MsgBox 工作簿中已有數(shù)據(jù)工作表,不能重復(fù)添加! Application.DisplayAlerts = False Worksheets(Worksheets.Count).Delete Application.DisplayAlerts = True End Sub代碼解析：Addsh_4過程是先使用Add方法在工作簿中新建“數(shù)據(jù)”工作表，如果工作簿中已存在同名的工作表則使用GoTo語句轉(zhuǎn)移到指定的line行處進(jìn)行提示并刪除已添加還沒有重命名的工作表，也就是工作簿中最后一張工作表。如果是批量添加工作表，使用上述方法時，添加工作表和已有工作表重名時，后面即使沒有重名的工作表也不能添加，所以應(yīng)先使用錯誤處理語句忽略錯誤，待全部添加好以后再刪除多余的工作表，如下面的代碼所示。 Sub Addsh_5() Dim i As Integer, arr Dim sh As Worksheet On Error Resume Next arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 0 To UBound(arr) With Worksheets Set sh = .Add(after:=Sheets(.Count) sh.Name = arr(i) End With Next Application.DisplayAlerts = False For Each sh In Worksheets If sh.Name Like Sheet* Then sh.Delete Next Application.DisplayAlerts = True End Sub代碼解析：Addsh_5過程使用Add方法在工作簿中添加10張工作表并重新命名為1到10，如果工作簿中已有相同名稱的工作表則不添加。第4行代碼錯誤處理語句，當(dāng)發(fā)生重名錯誤時忽略錯誤，繼續(xù)添加工作表。第5行到第11行代碼在工作簿中添加10張