上一篇文章我們介紹了使用excel的基礎操作來刪除工作表。本文給大家分享vba刪除工作表的代碼寫法。
vba刪除工作表案例一：刪除一張表以外的所有工作表
如下圖所示：這一個excel工作薄包含多張工作表，如何使用vba刪除 “IT部落窩論壇”以外的工作表呢？右邊截圖就是使用VBA代碼刪除后的效果，整個工作薄就只剩下一張工作表：IT部落窩論壇。
下面是具體的vba刪除工作表操作步驟：
第一，按下ALT+F11，打開VBE編輯器。
第二，單擊菜單：插入——模塊，插入一個模塊，并復制下面的代碼到代碼輸入?yún)^(qū)：
Sub vba刪除工作表()
Application.DisplayAlerts = False
Dim sht As Object
For Each sht In ThisWorkbook.Worksheets
If sht.Name <> "IT部落窩論壇" Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
第三，單擊上面截圖所示的工具欄上面那個綠色的“運行”命令，excel就會自動刪除“IT部落窩論壇”以外的所有工作表。
從兩篇刪除工作表方法的文章對比，我們可以清楚的看到，如果工作表很多的情況，使用VBA刪除工作表，效率會更加高效。而且代碼可以隨時調(diào)用運行，減少手工操作。
vba刪除工作表案例二：逐一提示刪除工作表
錄制代碼的方法參考上面介紹，下面這一段代碼運行的結果是出現(xiàn)一個提示框，要求輸入工作表名稱，如果輸入的工作表名正確，excel就刪除對應的工作表，如果輸入的工作表不正確，excel返回消息框提示：您要刪除的工作表不存在。
Sub vba刪除工作表()
Dim ws As Worksheet
Dim str As String
str = Application.InputBox(prompt:="輸入需要刪除的工作表：", Title:="刪除工作表", Default:="sheet1", Type:=2)
On Error GoTo back
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
back:
MsgBox "您要刪除的工作表不存在！"
End Sub
上面這段vba刪除工作表的方法，如果需要經(jīng)常使用，我們可以保存為宏，在需要的時候按快捷鍵ALT+F8調(diào)用，只要輸入工作表名稱即可刪除工作表。
核心關注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領域、行業(yè)應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領域的管理，全面涵蓋了企業(yè)關注ERP管理系統(tǒng)的核心領域，是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標題：vba刪除工作表的代碼和實例
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213467.html
相關文章
