Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
删除excel 2010 vba中的文件和文件夹_Excel_Vba - Fatal编程技术网

删除excel 2010 vba中的文件和文件夹

删除excel 2010 vba中的文件和文件夹,excel,vba,Excel,Vba,我正在尝试删除目录中的文件,如果用户提示的答案在下面的excel 2010 vba中为否,则该目录将被删除,但我在For行中遇到语法错误。谢谢:) 目录由一个变量设置为,当我单步执行代码时,该变量似乎是正确的。您需要使用DIR并循环浏览文件: 这将列出文件夹中的文件: Sub MyFileStuff() Dim MyFile As String, MyFolder As String MyFolder = "N:\" MyFile = Dir(MyFolder & "*.*") Do U

我正在尝试删除目录中的文件,如果用户提示的答案在下面的
excel 2010 vba
中为否,则该目录将被删除,但我在
For
行中遇到语法错误。谢谢:)


目录由一个变量设置为,当我单步执行代码时,该变量似乎是正确的。

您需要使用DIR并循环浏览文件:

这将列出文件夹中的文件:

Sub MyFileStuff()
Dim MyFile As String, MyFolder As String
MyFolder = "N:\"
MyFile = Dir(MyFolder & "*.*")
Do Until MyFile = ""
    MsgBox MyFile
    MyFile = Dir
Loop
End Sub

您可以修改此选项以终止该文件,而不是对其进行msgboxing。

myfile
只是一个字符串,而不是数组,因此
i
是一个字符串,而不是数字。查看
dir
Sub MyFileStuff()
Dim MyFile As String, MyFolder As String
MyFolder = "N:\"
MyFile = Dir(MyFolder & "*.*")
Do Until MyFile = ""
    MsgBox MyFile
    MyFile = Dir
Loop
End Sub