Excel VBA 删除指定文件夹中的指定文件

比如我D:\报表\ 中有几个文件（如：中国什么省汇总.xls)
用VBA怎么做！！！！

推荐答案推荐于2018-01-30

'你想删除的文件的名称例如文件名是中国什么省汇总.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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/n99vsxp9psxvvUpDxii.html

其他回答

第1个回答 2014-01-23

试试！

Sub test()
    Dim FileName As String
    FileName = Dir("D:\报表\*.xls*")
    Do While FileName <> ""
        Kill "D:\1\" & FileName
        FileName = Dir
    Loop
End Sub

第2个回答 2014-01-23

用DeleteFile 方法，你参考这个吧
http://www.officefans.net/cdb/viewthread.php?tid=70143
试试吧，有问题再讨论，祝你成功！

相似回答

Excel vba 删除一个文件夹中的全部文件?答：建议用Do循环+Dir函数+DeleteFile 方法或用Delete方法直接删除这个文件夹，再建一个同名文件夹即可。

Excel 中如何用VBA 删除指定文件夹中的指定文件?答：FileName = Dir Loop

Excel VBA 删除指定文件夹中的指定文件答：'你想删除的文件的名称例如文件名是中国什么省汇总.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 ...

Excel vba 怎么删除一个文件夹包含★的所有文件?答：Sub del()For Each f In CreateObject("scripting.FileSystemObject").GetFolder("c:\").Files If f.Name Like "*★*.*" Then n = n + 1NextIf n = 0 Then MsgBox "没有找到带★号文件" Else Kill "c:\*★*.*" MsgBox n & "个★号文件已删除"End IfEnd Sub ...

能不能用excel里的名字来删指定文件夹中的同名文件?用vba自动执行答：Sub 删除指定文件()Dim path1, wkname Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")path1 = "C:\aa\" '指定文件夹 For i = 1 To Sheets("sheet1").Range("A65535").End(xlUp).Row '指定sheet1表中的A列有文件名称的区域 wkname = Cells(i, 1) & ".xls...

Excel如何使用VBA删除指定文件夹下所有工作表的指定列?答：删除文件夹下所有工作表 End sub

大家正在搜

将文件移到指定文件夹怎么移动文件夹中的文件怎么把文件夹里的文件移出来文件夹怎么移动到另一个文件夹 vba打开文件夹下的所有文件将文件复制到另一个文件夹提取多个文件夹内文件移动文件到不同文件夹文件移动到另一个文件夹