【原创】VBA学习笔记（35）【例子】---批量删除多个sheet

我自己写的不可以？

这样不行，会报自动化错误

自动化错误的解决办法

http://club.excelhome.net/thread-1270827-1-1.html

https://zhidao.baidu.com/question/2201903842158113148.html

http://www.excelpx.com/thread-290493-1-1.html

http://club.excelhome.net/thread-1400268-1-1.html

Rem 接下来想试验几个  从其他表读表名? 会报告数据源链接更新的问题

Sub t3()
Application.DisplayAlerts = False       '消除警告

Dim wb As Workbook
Dim sh As Worksheet
Dim i As Integer
i = 1


Set wb = Workbooks.Open("C:\VBA\100.xls")


For Each sh In wb.Worksheets      'for each worksheet in wb 不行，变量不要用保留字  也不能 in wb

   
Do While wb.Sheets("create").Cells(i, 1) <> ""
   If sh.Name = wb.Sheets("create").Cells(i, 1) Then
      sh.Delete
   End If
i = i + 1
Loop

Next
Application.DisplayAlerts = True      '重开警告

End Sub

把两个循环交换了次序，就可以了


Sub t3()
Application.DisplayAlerts = False       '消除警告

Dim wb As Workbook
Dim sh1 As Worksheet
Dim i As Integer
i = 1

Set wb = Workbooks.Open("C:\VBA\100.xls")



For i = 1 To 9
   For Each sh1 In wb.Worksheets
      If sh1.Name = wb.Sheets("create").Cells(i, 1).Value Then
         sh1.Delete
      End If
    Next sh1
Next i

用 like "city*" 这样匹配 --算“正则表达式方法” ？

不需要一定要 = 这种严格匹配！


Sub t3()
Application.DisplayAlerts = False       '消除警告

Dim wb As Workbook
Dim sh1 As Worksheet
Dim i As Integer
i = 1

Set wb = Workbooks.Open("C:\VBA\100.xls")



For i = 1 To 9
   For Each sh1 In wb.Worksheets
      If sh1.Name Like "city*" Then
         sh1.Delete
      End If
    Next sh1
Next i

一个很巧妙的办法，模仿的别人的

https://zhidao.baidu.com/question/1436433417378539499.html

但是这个原文有点小问题

Sub t3()
Application.DisplayAlerts = False       '消除警告

Dim wb As Workbook
Dim i As Integer
i = 1


Set wb = Workbooks.Open("C:\VBA\100.xls")

Do While wb.Sheets("create").Cells(i, 1) <> ""
      a = Cells(i, 1)
      wb.Sheets(a).Delete    '这样就报错 wb.Sheets( Cells(i, 1)).Delete
i = i + 1
Loop

Application.DisplayAlerts = True      '重开警告
End Sub

这个复杂方法看不懂

https://blog.csdn.net/taller_2000/article/details/79407414

https://blog.csdn.net/kxw1994/article/details/79307382

https://blog.csdn.net/taller_2000/article/details/79407414

https://blog.csdn.net/taller_2000/article/details/79824740

https://blog.csdn.net/taller_2000/article/category/7463892/4?

【原创】VBA学习笔记（35）【例子】---批量删除多个sheet

猜你喜欢