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

1、添加與刪除工作簿的工作表1、在工作簿添加單個(gè)工作表中的代碼。 sub addsh() dim sh as worksheet with worksheets set sh = .add(after:=worksheets(.count) sh.name = "工作" end with end sub代碼解析：addsh過(guò)程使用add方法在工作簿中新建“工作”工作表。dim sh as worksheet聲明變量sh為工作表對(duì)象。.add(after:=worksheets(.count)使用add方法在工作簿的最后新建“工作”工作表。add 方法應(yīng)用于sheets和work

2、sheets對(duì)象時(shí)新建工作表、圖表或宏表，語(yǔ)法如下： expression.add(before, after, count, type)參數(shù)before是可選的，指定工作表對(duì)象，新建的工作表將置于此工作表之前。參數(shù)after是可選的，指定工作表對(duì)象，新建的工作表將置于此工作表之后。如果before和 after兩者均省略，則新建的工作表將插入到活動(dòng)工作表之前。參數(shù)count可選，要新建的工作表的數(shù)目。默認(rèn)值為 1。參數(shù)type可選，指定新建的工作表類型。第5行代碼將添加的工作表重命名為“數(shù)據(jù)”。2、在工作簿中批量添加工作表的代碼。如果需要在工作簿中批量添加工作表，可以使用下面的代碼。 sub

3、 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過(guò)程使用for.next 語(yǔ)句和add方法在工作簿中添加10張工作表并將添加的工作表依次重命名。3、在工作簿中刪除所有工作表的代碼。刪除所有的工作表的代碼。 sub delsh() dim sh as worksheet for each sh in thisworkbook.sheets if sh.

4、name <> "數(shù)據(jù)庫(kù)" then application.displayalerts = false sh.delete application.displayalerts = true end if next end sub代碼解析：delsh過(guò)程使用delete方法刪除工作簿中除了“數(shù)據(jù)庫(kù)”工作表以外所有的工作表。第3行代碼使用for each.next語(yǔ)句遍歷代碼所在工作簿中所有的工作表。第4行到第7行代碼判斷工作表名稱是否為“數(shù)據(jù)庫(kù)”,如果不是則使用delete方法刪除。第5行代碼將application對(duì)象的displayalerts屬性設(shè)置為fa

5、lse，使刪除時(shí)不顯示如圖 所示系統(tǒng)警告對(duì)話框。圖 1 系統(tǒng)警告對(duì)話框第6行代碼使用delete方法刪除工作表，應(yīng)用于工作表對(duì)象的delete方法刪除指定的對(duì)象，語(yǔ)法如下： expression.delete參數(shù)expression是必需的，該表達(dá)式返回“應(yīng)用于”列表中的對(duì)象之一。4、在工作簿中判斷是否存在相同名稱的工作表并添加單張新的工作表的代碼。4.1 在添加前先判斷工作簿中是否存在相同名稱的工作表,然后再進(jìn)行下一步的操作。對(duì)于單張工作表可以使用下面的代碼。 sub addsh_3() dim sh as worksheet for each sh in worksheets if sh.

6、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過(guò)程在使用add方法在工作簿中新建“數(shù)據(jù)”工作表時(shí)首先判斷工作簿中是否存在“數(shù)據(jù)”工作表，如果已存在“數(shù)據(jù)”工作表則不運(yùn)行添加工作表的代碼而只顯示一個(gè)消息框進(jìn)行

7、提示，如圖 所示。圖 2 工作表同名提示4.2 還可以使用錯(cuò)誤處理語(yǔ)句來(lái)繞過(guò)錯(cuò)誤，如下面的代碼所示。 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 =

8、false worksheets(worksheets.count).delete application.displayalerts = true end sub代碼解析：addsh_4過(guò)程是先使用add方法在工作簿中新建“數(shù)據(jù)”工作表，如果工作簿中已存在同名的工作表則使用goto語(yǔ)句轉(zhuǎn)移到指定的line行處進(jìn)行提示并刪除已添加還沒(méi)有重命名的工作表，也就是工作簿中最后一張工作表。如果是批量添加工作表，使用上述方法時(shí)，添加工作表和已有工作表重名時(shí)，后面即使沒(méi)有重名的工作表也不能添加，所以應(yīng)先使用錯(cuò)誤處理語(yǔ)句忽略錯(cuò)誤，待全部添加好以后再刪除多余的工作表，如下面的代碼所示。 sub addsh_5

9、() 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過(guò)程使用add方法在工作簿中添加10張工作表并重新命名為1到10，如果工作簿中已有相同名稱的工作表則不添加。第4行代碼錯(cuò)誤處理語(yǔ)句，當(dāng)發(fā)生重名錯(cuò)誤時(shí)忽略錯(cuò)誤，繼續(xù)添加工作表。第5行到第11行代碼在工作