如题所述
'你想删除的文件的名称例如文件名是中国什么省汇总.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
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
温馨提示:答案为网友推荐,仅供参考