[已解决]如何在打开的多个工作薄中找到指定的工作表并删除

斗笠渔翁

我是VBA菜鸟，请教各位大侠：用VBA如何实现历遍打开的工作薄找出指定的工作表并删除。先谢过了！

最佳答案

月排行榜 / 总排行榜

冥王

2015-4-18 21:34

dim wb as workbook,sht as worksheet
for each wb in workbooks
       for each sht in sheets
             if sht.name="待删除" then
                     sht.delete
                     exit for
             end if
       next
next

跳转到最佳答案楼层

冥王

1. Sub demo()
   
2.    Application.DisplayAlerts = False
   
3.       With ActiveWorkbook
   
4.         For Each sht In .Sheets
   
5.            If sht.Name = "待删除" Then sht.Delete
   
6.         Next
   
7.       End With
   
8.    Application.DisplayAlerts = True
   
9. End Sub

复制代码

冥王

删除当前活动工作簿中的待删除工作表

斗笠渔翁

冥王 发表于 2015-4-18 17:07

感谢冥王的热心答复，由于打开的工作薄比较多，不知道这个“待删除”的工作表在哪一个工作薄中，不一定是活动的工作薄，所以需要打开写有此VBA代码工作薄去找到含有“待删除”的工作表的工作薄，然后删除。上面的代码好像不满足要求。

冥王

dim wb as workbook,sht as worksheet
for each wb in workbooks
       for each sht in sheets
             if sht.name="待删除" then
                     sht.delete
                     exit for
             end if
       next
next

冥王

心里预计应该是用类似的循环，平板上瞎敲的，没有经过测试

斗笠渔翁

谢谢冥王，测试通过，完美。