如何刪除可能存在的工件表

Johnnyc

具體來說，我想刪除一張可能存在的工作表，我用代碼是：If Not Sheets("Name") Is Nothing Then Sheets("A").Delete但在運行時如果sheets("Name")本身不存在的話會引發錯誤，這應該如何修改?請教各位老師

excelvlookup

for each sh in sheets
if sh.name="name" then
sheets.("A").select
sheets.("A").delete
end if
next

Johnnyc

感謝各位~~學習了

xiangbaoan

利用错误，编写代码，这才高效
Sub test()
On Error Resume Next
Set sht = Sheets("Name")
sht.Delete
Err.Clear
End Sub

jiminyanyan

6楼可以的。。。。

不知道为什么

经常用可以自己写个判断函数。
可以对 工作簿  工作表  单元格名称 等判断

zhang6029

学习一下。

everbest2015

Sub scgzb()
    Dim dic As Object, sh As Worksheet, sh_name, s_name
    Set dic = CreateObject("scripting.dictionary")
    For Each sh In ThisWorkbook.Sheets
        sh_name = sh.Name
        dic(sh_name) = ""
    Next
    If Sheets.Count = 1 Then MsgBox "此工作簿中只存在一张工作表,且不能被删除!", , "提示": Exit Sub
   
        s_name = Application.InputBox("请输入您要删除的工作表名字", "请录入")
        If s_name = "" Or s_name = False Then Exit Sub
    If dic.exists(s_name) Then
        Application.DisplayAlerts = False
            Sheets(s_name).Delete
        Application.DisplayAlerts = True
    Else
        MsgBox "您要删除的工作表不存在!", , "请核实"
    End If
End Sub