Sub 删除文件_()
Dim sfilename As String
sfilename = Application.InputBox(prompt:="请输入需要删除的文件名:", _
Title:="输入文件名", Type:=2)
sfilename = ThisWorkbook.Path & "\" & sfilename
On Error Resume Next
Kill sfilename
On Error GoTo 0
End Sub
Sub 删除文件_()
Dim sfilename As String
sfilename = Application.InputBox(prompt:="请输入需要删除的文件名:", _
Title:="输入文件名", Type:=2)
sfilename = ThisWorkbook.Path & "\" & sfilename
On Error Resume Next
Kill sfilename
On Error GoTo 0
End Sub