Excel 中如何用VBA 删除指定文件夹中的指定文件？

你想删除的文件的名闭山穗称例如文件名是中国什么省唯棚汇总.xls\x0d\x0aFN = "中国什么省汇总.xls"\x0d\x0a\x0d\x0aDim FileName As String\x0d\x0a\x0d\x0aFileName = Dir("D:\报表\轿卜*.xls")\x0d\x0aDo While FileName ""\x0d\x0aIf FileName = FN Then\x0d\x0aKill "D:\报表\" &FileName\x0d\x0aEnd If\x0d\x0aFileName = Dir\x0d\x0aLoop

我们Excel中的VBA编程可以实团橘现很多功能，除了能够处理Excel表格内部的数据之后，还可以对文件等进行 *** 控，今天就跟大家介绍一下怎么利用Excel中的VBA删除文件的具体 *** 作步骤。

1. 如图，我们在D盘根橘或卖目录下选择一个文件，利用Excel中的VBA编程将该文件删除。

2. 首先打开电脑上的Excel表格，依次点击上方的“开发工具”---“Visual Basic”选项。

3. 在打开的VBA中，我们可以利用Kill函数将文件删除，将文件的完整路径作为其参数就可以了，如图，在打开的VBA编辑页面，输入代码:

Sub 鱼木混猪()

Kill "D:\ymhz.txt"

End Sub

4. 然后鼠标定位在代码中的任意位置，点击上方的“运行子程序”按钮。

5. 返回D盘，如图，刚才指定的文件就被删除了。圆逗

以上就是怎么利用Excel中的VBA删除文件的具体 *** 作步骤

Sub Test()

    Dim 升橡fs As Object

  罩历  Set fs = CreateObject("scripting.filesystemobject")

 物笑搜   fs.deletefile "D:\Test\temp\*.*"

    fs.deleteFolder "D:\Test\temp\*.*"

End Sub

---