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

1、添加與刪除工作簿的工作表1、在工作簿添加單個工作表中的代碼。Sub Addsh()Dim Sh As WorksheetWith WorksheetsSet Sh = .Add(after:=Worksheets(.Count) Sh.Name = 工作 End WithEnd Sub代碼解析：Addsh 過程使用 Add 方法在工作簿中新建“工作”工作表。Dim Sh As Worksheet 聲明變量 Sh 為工作表對象。.Add(after:=Worksheets(.Count) 使用 Add 方法在工作簿的最后新建“工作”工作表。Add 方法應用于 Sheets 和 Worksheet

2、s 對象時新建工作表、圖表或宏表，語法如下： expression.Add(Before, After, Count, Type)參數 Before 是可選的，指定工作表對象，新建的工作表將置于此工作表之前。參數 After 是可選的，指定工作表對象，新建的工作表將置于此工作表之后。如果 Before 和 After 兩者均省略，則新建的工作表將插入到活動工作表之前。參數 Count 可選，要新建的工作表的數目。默認值為1。參數 Type 可選，指定新建的工作表類型。第 5 行代碼將添加的工作表重命名為“數據” 。2、在工作簿中批量添加工作表的代碼。如果需要在工作簿中批量添加工作表，可以使用下

3、面的代碼。Sub Addsh_2()Dim i As IntegerDim sh As WorksheetFor i = 1 To 10Set sh = Sheets.Add(after:=Sheets(Sheets.Count) sh.Name = iNextEnd Sub代碼解析：Addsh_2 過程使用 For.Next 語句和 Add 方法在工作簿中添加 10 張工作表并將添加 的工作表依次重命名。3、在工作簿中刪除所有工作表的代碼。刪除所有的工作表的代碼。Sub Delsh()Dim sh As WorksheetFor Each sh In ThisWorkbook.SheetsI

4、f sh.Name 數據庫ThenApplicati on .DisplayAlerts = Falsesh.DeleteApplicati on .DisplayAlerts = TrueEnd IfNextEnd Sub代碼解析：Delsh過程使用Delete方法刪除工作簿中除了“數據庫”工作表以外所有的工作表。第3行代碼使用For Each.Next語句遍歷代碼所在工作簿中所有的工作表。第4行到第7行代碼判斷工作表名稱是否為“數據庫”，如果不是則使用 Delete方法刪除。第5行代碼將Application對象的DisplayAlerts屬性設置為 False，使刪除時不顯示如 圖所示系

5、統(tǒng)警告對話框。圖1系統(tǒng)警告對話框第6行代碼使用Delete方法刪除工作表，應用于工作表對象的Delete方法刪除指定的對象，語法如下：expressi on .Delete參數expression是必需的，該表達式返回 應用于列表中的對象之一。4、在工作簿中判斷是否存在相同名稱的工作表并添加單張新的工作表的代碼。4.1在添加前先判斷工作簿中是否存在相同名稱的工作表，然后再進行下一步的操作。對于單張工作表可以使用下面的代碼。Sub Addsh_3()Dim Sh As WorksheetFor Each Sh In WorksheetsIf Sh.Name =數據ThenMsgBox 工作簿中已

6、有數據工作表，不能重復添加!Exit SubEnd IfNextWith WorksheetsSet Sh = .Add(after:=Worksheets(.Cou nt)Sh.Name =數據End WithEnd Sub代碼解析:Addsh_3過程在使用Add方法在工作簿中新建“數據”工作表時首先判斷工作簿中是 否存在數據”工作表，如果已存在數據”工作表則不運行添加工作表的代碼而只顯示一 個消息框進行提示，如圖所示。圖2工作表同名提示4.2還可以使用錯誤處理語句來繞過錯誤，如下面的代碼所示。Sub Addsh_4()Dim sh As WorksheetOn Error GoTo lin

7、eWith WorksheetsSet sh = .Add(after:=Worksheets(.Cou nt) sh.Name =數據”End WithExit Subline:MsgBox 工作簿中已有數據工作表，不能重復添加!Applicati on .DisplayAlerts = FalseWorksheets(Worksheets.Cou nt).DeleteApplicati on .DisplayAlerts = TrueEnd Sub代碼解析：Addsh_4過程是先使用 Add方法在工作簿中新建“數據”工作表，如果工作簿中已存 在同名的工作表則使用GoTo語句轉移到指定的li

8、ne行處進行提示并刪除已添加還沒有重命名的工作表，也就是工作簿中最后一張工作表。如果是批量添加工作表，使用上述方法時，添加工作表和已有工作表重名時，后面即使沒有重名的工作表也不能添加，所以應先使用錯誤處理語句忽略錯誤，待全部添加好以后再刪除多余的工作表，如下面的代碼所示。Sub Addsh_5()Dim i As Integer, arrDim sh As WorksheetOn Error Resume Nextarr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To UBound(arr)With WorksheetsSet sh = .

9、Add(after:=Sheets(.Count)sh.Name = arr(i)End WithNextApplication.DisplayAlerts = FalseFor Each sh In WorksheetsIf sh.Name Like Sheet* Then sh.DeleteNextApplication.DisplayAlerts = TrueEnd Sub代碼解析：Addsh_5 過程使用 Add 方法在工作簿中添加 10 張工作表并重新命名為 1 到 10 ，如果 工作簿中已有相同名稱的工作表則不添加。第 4 行代碼錯誤處理語句，當發(fā)生重名錯誤時忽略錯誤，繼續(xù)添加工作表。第 5 行到第 11 行代碼在工作簿中添加 10 張工作表并重新命名為 1 到 10 ，