版权声明:一起学习,一起成长,欢迎关注 奔跑的犀牛先生 https://blog.csdn.net/xuemanqianshan/article/details/89213801
我自己写的不可以?
这样不行,会报 自动化错误
自动化错误的解决办法
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?