删除工作表

vbalove

sheetarr = Array("arr", "1", "2", "3")
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name = sheetarr(0) Or sh.Name = sheetarr(1) Or sh.Name = sheetarr(2) Or sh.Name = sheetarr(3) Then
    Else
        sh.Delete
    End If
Next
Application.DisplayAlerts = True

我的目的是要删除除上面几个出现名字以外的所有工作表，我的这个方法比较笨，恳请其他方法

excelhomeljch

如果判断较多,判断也用循环

823221432

貌似判断错误吧

wenfulin

sheetarr = Array("arr", "1", "2", "3")
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
     If application.match(sh.name,sheetarr) Then
     Else
         sh.Delete
     End If
Next
Application.DisplayAlerts = True

vbalove

wenfulin 发表于 2012-2-4 20:27
sheetarr = Array("arr", "1", "2", "3")
Dim sh As Worksheet
Application.DisplayAlerts = False

貌似不行啊 ，测试过了，，，都删除不掉啊

sscylh

vsto:

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         Dim arr As Array = Array.CreateInstance(GetType(String), 2)
   
3.         Me.Application.DisplayAlerts = False
   
4.         arr.SetValue("Sheet1", 0)
   
5.         arr.SetValue("Sheet2", 1)
   
6.         For Each ws As Excel.Worksheet In Me.Application.ActiveWorkbook.Worksheets
   
7.             If Array.BinarySearch(arr, ws.Name) < 0 Then
   
8.                 ws.Delete()
   
9.             End If
   
10.         Next
    
11.         Me.Application.DisplayAlerts = True
    
12.     End Sub

复制代码