下面是我想分享给大家的:Excel宏命令批量删除指定路径下的文件夹。
1.首先打开文件夹,可以看到有很多文件夹。当然,如果这些文件夹路径相同,我们可以全部选中,统一删除,但是如果这些文件夹路径不相同,怎么统一删除呢?
2.我们需要创建一个新的工作簿,根据自己的需要设置名称,格式保存为xlsm宏的工作簿。
3.然后按快捷键alt f11打开宏代码窗口,再选择“插入模块”命令。
4.插入后,将以下代码复制并粘贴到模块中:
子删除指定文件下的文件夹()
Dim fso
Set fso=CreateObject('脚本。file system object’)
对于i%=1的范围(' A1048576 ')。结束(xlUp)。排
如果fso。FolderExists(单元格(I,1))然后
fso。DeleteFolder(单元格(I,1))
如果…就会结束
然后
末端接头
,
5.设置完成后,接下来,我们需要找到被删除文件的完整路径。这里,我们可以使用另一个工具来提取文件的完整路径。按快捷键alt f8找到提取文件的宏命令,然后单击执行。
6.执行后,找到要删除的文件夹,
7.然后用函数连接完整的路径,
8.然后选择所有路径,复制粘贴到刚才写的宏命令对应的excel表格的A列中,
9.最后按快捷键alt f8找到删除的宏命令,点击执行删除。