下面要和大家分享的是:Excel宏命令[计算机科学里的宏(Macro),是一种批量批处理的称谓。]批量删除[删除:指将已经不需要了的文件从系统的目录清单中删掉,以腾出磁盘空间给别的操作。]指定路径[路径(path)在不同的领域有不同的含义。]下的文件[文件是现代词,是一个专有名词,指的是形成的正式文书,分为公文、文书、函件和其他文件。]夹。
1、首先打开文件夹,可以看到有很多的文件夹,当然这些文件夹如果路径相同,我们可以全选统一删除,但是如果这些文件夹不在同一个路径下,又如何统一删除呢,如下[如下,指如同下面所叙述或列举的。]图所示:
2、我们需要新建一个工作簿,名字根据自己的需要设定, 格式另存为[另存为是指把目标另外保存的行为。]xlsm宏的工作簿 ,如下图所示:
3、然后按快捷键[快捷键,又叫快速键或热键,指通过某些特定的按键、按键顺序或按键组合来完成一个操作,很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。] alt+f11 打开宏代码窗口,然后选择插入模块命令,如下图所示:
4、插入后将如下代码复制粘贴[《复制粘贴》是王绎龙演唱的一首歌曲。]到模块中:
Sub 删除指定文件下的文件夹()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
For i% = 1 To Range("A1048576").End(xlUp).Row
If fso.FolderExists(Cells(i, 1)) Then
fso.DeleteFolder (Cells(i, 1))
End If
Next
End Sub
,如下图所示:
5、设置完成后,接下来,我们需要找到[范文芳、李铭顺、孙燕姿、蔡健雅 欧菁仙、郑秀珍、郑惠玉、郑斌辉 李南星、葛米星演唱的一首歌...]删除文件的完整[完整,指的是具有或保持着应有的部分,没有损坏或残缺。]路径,在这里可以利用另一个提取文件完整路径的工具,按快捷键 alt+f8 找到提取文件的宏命令,单击[单击即用鼠标左键或右键点击一次的动作。]执行,如下图所示:
6、执行后,找到要删除的文件夹,如下图所示:
7、然后用&函数将完整路径进行连接,如下图所示:
8、接着选中所有路径,复制并数值粘贴到刚刚编写的宏命令对应的 excel表格A列中 ,如下图所示:
9、最后按快捷键 alt+f8 找到删除的宏命令,单击执行,即可删除,如下图所示: