VBA删除数据表的命令

fansong

Sub XXX()
    On Error GoTo a
    Sheets(Array("小五金仓", "包材仓", "电子仓", "大五金仓", "玻璃仓", "铁管仓")).Select
      ActiveWindow.SelectedSheets.Delete
      MsgBox "分仓单已经删除!"
      Exit Sub
a:    MsgBox "无此数据表,数据可能已经删除!"
End Sub

以上的是删除工作表的代码,但是如果之间有一个工作表不存在的情况下,就显示"无此数据表,数据可能已经删除!",我想如果以上的6个数据都不存在的话就显示"无此数据表,数据可能已经删除!",只要有一个数据表存在照样可以删除的!

谢谢各位!

JOTeIETd.rar (29.8 KB, 下载次数: 22)

2008-1-25 17:23 上传

点击文件名下载附件
VBA删除数据表的命令
附件已经上传,大家下载看看!

[此贴子已经被作者于2008-1-25 17:23:19编辑过]

mxg825

换用循环法！行不行？

hhzjxss

何不考虑用循环试试？

[此贴子已经被作者于2008-1-25 16:55:33编辑过]

mxg825

可能不行！

 Sub XXX()
    On Error Resume Next   

      End Sub

[此贴子已经被作者于2008-1-25 17:00:54编辑过]

hhzjxss

下面这样修改一下，只能全部存在时才能删除，否则就提示不存在！

当然，加上一个屏蔽删除工作表提示的就好些！

Sub XXX()
    On Error GoTo a
    Sheets(Array("小五金仓", "包材仓", "电子仓", "大五金仓", "玻璃仓", "铁管仓")).Delete
      MsgBox "分仓单已经删除!"
      Exit Sub
a:    MsgBox "无此数据表,数据可能已经删除!"
End Sub

 

[此贴子已经被作者于2008-1-25 17:00:58编辑过]

fansong

上面还是不成立,还是显示"无此数据表,数据可能已经删除!"
我把附件放到到1楼,大家看一下!

hhzjxss

QUOTE:

以下是引用fansong在2008-1-25 16:42:00的发言：

我想如果以上的6个数据都不存在的话就显示"无此数据表,数据可能已经删除!",

只要有一个数据表存在照样可以删除的!

那就用循环法吧，反正表格不多！

hhzjxss

你的代码大概是录制宏的吧！

换个思路吧！

Sub hhzjxs()
    Application.DisplayAlerts = False
   If Sheets.Count > 2 Then
        For I = Sheets.Count To 3 Step -1
            Sheets(I).Delete
        Next I
        MsgBox "分仓单已经删除!"
    Else
        MsgBox "无此数据表,数据可能已经删除!"
    End If
    Application.DisplayAlerts = True
End Sub

fansong

我最后的结果.可以成立!

Public Sub sc()
Application.DisplayAlerts = False Dim st As Worksheet

For Each st In Sheets
x = st.Name
If st.Name <> "物料清单" Then Sheets(st.Name).Delete

Next
Application.DisplayAlerts = True

MsgBox "分仓单已经删除!"

End Sub

童志坚

看看