Sub KillFile()
With Application.FileSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True '搜索子文件夹
.Filename = "*" & ".xls" '搜索文件名包含所选表格名的.xls文件
Dim m As Long
If .Execute > 0 Then
For m = 1 To .FoundFiles.Count - 1
Dim strTemp As String
strTemp = .FoundFiles(m)
If strTemp <> ActiveWorkbook.Path & "\预算样板总表(总表后).xls" Then
VBA.Kill strTemp
End If
Next
End If
End With
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。