[已解决]求代码遍历文件夹，删除工作簿中某个工作表

蓝雨清

把当前文件夹下所有工作簿中，工作表名字为"12月"的工作表删除
测试文件.rar (24.55 KB, 下载次数: 8)

2013-12-5 09:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-5 10:19

放入要处理的工作簿目录中，打开后，点击按钮即可。
Test.rar (9.78 KB, 下载次数: 24)

2013-12-5 10:19 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

遍历的代码论坛很多，至于删除名字为 12月 的工作表，也不难呀。

蓝雨清

hwc2ycy 发表于 2013-12-5 10:08
遍历的代码论坛很多，至于删除名字为 12月 的工作表，也不难呀。

你会的话肯定不难啊，可我不会，你帮帮我吧
我只会一句：if sheets(i).name="12月" then sheets(i).delete
其他的不会怎么写了，拜托你了

hwc2ycy

1. Sub batchRemove()
   
2.     Dim strPath$
   
3.     strPath = ThisWorkbook.Path & Application.PathSeparator
   
4.     Dim strFilename$
   
5.     strFilename = Dir(strPath & "*.xls")
   
6.     Application.ScreenUpdating = False
   
7.     Application.DisplayAlerts = False
   
8.     On Error Resume Next
   
9.     Do While Len(strFilename)
   
10.         If strFilename <> ThisWorkbook.Name Then
    
11.             With GetObject(strPath & strFilename)
    
12.                 .Windows(1).Visible = True
    
13.                 .Worksheets("12月").Delete
    
14.                 .Close True
    
15.             End With
    
16.         End If
    
17.         strFilename = Dir
    
18.     Loop
    
19.     Application.ScreenUpdating = True
    
20.     Application.DisplayAlerts = True
    
21. End Sub

复制代码

hwc2ycy

放入要处理的工作簿目录中，打开后，点击按钮即可。
Test.rar (9.78 KB, 下载次数: 24)

2013-12-5 10:19 上传

点击文件名下载附件

yyyydddd8888

请测试：
删除12月.rar (31.41 KB, 下载次数: 4)

2013-12-5 10:24 上传

点击文件名下载附件