Vba设置批量删除指定文件夹下的所有文件

1、首先新建一个excel文件并双击打开，打开后，按快捷键F12进行另存为，注意另存的格式要选择启用宏的工作簿，如下图所示：

4、插入后将如下代码复制到模块中，Sub 献皲咝犴删除指定文件夹下的所有文件()For i% = 1 To R锾攒揉敫ange("A1048576").End(xlUp).RowKill Cells(i, 1) & "\*.*”NextEnd Sub如下图所示：

6、而且上一个文件夹又有很多新建文件夹的副本，这里也有很多excel，都是我们需要删除的，如下图所示：

8、打开后找到视图中的查看宏命令，并找到提取文件名的宏命令，单击执行，此时需要在弹出的对话框中找到我们对应的文件路径，注意需要找到要删除文件的文件夹的上一级路径，如下图所示：

10、合并后需要下拉单元格，将副本的文件路径进行合并，然后整体将路径进行复制并数值粘贴到，删除指定文件夹下的文件.Xlsm，这个文件的A列，如下图所示：

11、粘贴完成后，同样视图查看宏找到我们对应的宏命令：删除指定文件夹下的文件，并单击执行，如下图所示：