vba如何删除文件 VBA中删除文件的步骤

vba如何删除文件

VBA（Visual Basic for Applications）是一种用于创建自动化应用程序的开发语言。它可以用来创建宏，控制Office应用程序，如Excel、Word、PowerPoint等。VBA也可以用来删除文件。

要使用VBA删除文件，首先需要在VBA中导入FileSystemObject对象。FileSystemObject对象提供了一系列的方法和属性，可以帮助我们实现文件操作的目的。

Dim fso As FileSystemObject  '声明FileSystemObject对象
Set fso = New FileSystemObject  '实例化FileSystemObject对象

然后使用DeleteFile方法来删除文件。DeleteFile方法接受一个字符串参数，表示要删除的文件的路径。如果要删除当前工作目录下的test.txt文件，可以这样写：

fso.DeleteFile "test.txt"  ' 删除test.txt文件

如果要删除其它目录下的文件，可以使用完整的路径名来表示该文件。例如：

fso.DeleteFile "C:\Users\John\Desktop\test.txt"  ' 删除C:\Users\John\Desktop\test.txt文件

此外，还可以使用DeleteFolder方法来删除整个目录。DeleteFolder方法也接受一个字符串参数，表示要删除的目录的路径名。例如：

fso.DeleteFolder "C:\Users\John\Desktop\Test"  ' 删除C:\Users\John\Desktop\Test目录
VBA中删除文件的步骤
你已经从前面的章节里知道了不能删除含有文件的文件夹，要从文件夹里面删除文件的话，可以使用下面的Kill语句:
Kill 文件路径名

文件路径名明确一个或多个你要删除的文件的名称，随你意，也可以将驱动器和文件夹名称包括在里面。你可以在文件路径名参数里使用通配符（*或?）来确保快速删除文件。你不能删除开启的文件。
如果你是跟着前面的练习一步一步过来的，那么你的硬盘上应该有了文件夹C:Abort和好几个文件了里面了。在下面的练习里，你将首先删除文件夹Abort里面的所有文件，然后再删除文件夹本身：

1. 在当前工程里插入新模块，并重命名为KillStatement

2. 在过程RemoveMe里输入代码，如下所示：
Sub RemoveMe()
Dim folder As String
Dim myFile As String
‘assign the name of folder to the folder variable
‘notice the ending backslash ""
folder = "C:Abort"
myFile = Dir(folder, vbNormal)
Do While myFile <> ""
Kill folder & myFile
myFile = Dir
Loop
RmDir folder
End Sub

3. 运行过程RemoveMe，当程序运行结束，点击Windows文件浏览器看看该文件夹是否已经被删除了。