[已解决]批量删除各文件夹中的指定工作薄的问题

dfshm

附件 批量删除指定工作薄附件.rar (365.1 KB, 下载次数: 21)

2016-3-9 18:28 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

橘子红

2016-3-9 19:00

1. Sub x()
   
2. On Error Resume Next
   
3. Dim p$, f, x%
   
4. p = ThisWorkbook.Path & ""
   
5.         f = Dir(p, vbDirectory)
   
6.             Do While Len(f)
   
7.                 If InStr(f, ".") = 0 And f <> "" Then
   
8.                      Kill p & f & "\0A*.xlsx"
   
9.                 End If
   
10.                 f = Dir
    
11.             Loop
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. On Error Resume Next
   
3. Dim p$, f, x%
   
4. p = ThisWorkbook.Path & ""
   
5.         f = Dir(p, vbDirectory)
   
6.             Do While Len(f)
   
7.                 If InStr(f, ".") = 0 And f <> "" Then
   
8.                      Kill p & f & "\0A*.xlsx"
   
9.                 End If
   
10.                 f = Dir
    
11.             Loop
    
12. End Sub
    

复制代码