导出的excel表格文件怎么删

1.如何快速删除文件夹中指定的excel列表文件???

右键点击表格标签，选查看代码，在VBA代码框填入： Private Function DelFS(FileName) As String Dim FS, F On Error Resume Next If FileName = "" Then End DelFS = "错误" Set FS = CreateObject("Scripting.FileSystemObject") Set F = FS.GetFile(FileName) If Err > 0 Then Beep MsgBox （"删除指定的文件[" & FileName &； "]出现错误。

"） Else F.Delete DelFS = "已删除" End If End Function Sub AutoDel() Dim FDN, FN, FExt, Area Dim Rng As Range FDN = InputBox（"输入文件所在文件夹名称：如C:\TEMP"） FExt = InputBox（"输入文件的后缀名：如.jpg"） Area = InputBox（"输入文件名所在表格范围：例如：A1:A50"） If FDN = "" Or Area = "" Or FExt = "" Then End If MsgBox（"点确认开始删除文件！"） = vbCancel Then End For Each Rng In Range(Area) With Rng If .Value <> "" Then FN = FDN & "\" & .Value & FExt .Offset(0, 1).Value = DelFS(FN) End If End With Next End Sub 然后运行AutoDel（) 注意输入信息（文件夹、后缀名等）要正确。 在OFFICE2007初步测试可用，没有完整调试，希望能帮到你。

2012-4-26 15:16测试可用，调试后修改了函数delfs参数。