'你想删除的文件的名称例如文件名是中国什么省汇总.xls
FN = "中国什么省汇总.xls"
Dim FileName As String
FileName = Dir("D:\报表\*.xls")
Do While FileName <> ""
If FileName = FN Then
Kill "D:\报表\" & FileName
End If
FileName = Dir
Loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024