‘写完就发现这个代码不用写得这么重复的
Sub shanchuwenjian()
Dim str As String
Dim str2 As String
'这个vba代码是后处理的代码,加载阶段未接触上进行修正
Dim i, jj, kk As Integer
Dim wb As Workbook
For i = 1 To 10
str = Dir("C:\Users\DELL\Desktop\保存\*.*") 'str就是带有.xlsx的文件名
If str = "" Then
Exit For
End If
Kill "C:\Users\DELL\Desktop\保存\" & str
str = Dir
If str = "" Then
Exit For
End If
Next
For jj = 1 To 10
str = Dir("C:\Users\DELL\Desktop\二次后处理\*.*") 'str就是带有.xlsx的文件名
If str = "" Then
Exit For
End If
Kill "C:\Users\DELL\Desktop\二次后处理\" & str
str = Dir
If str = "" Then
Exit For
End If
Next
For kk = 1 To 10
str = Dir("C:\Users\DELL\Desktop\测试\*.*") 'str就是带有.xlsx的文件名
If str = "" Then
Exit For
End If
Kill "C:\Users\DELL\Desktop\测试\" & str
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub