excel中如何用Vba批量删除指定文件夹下的所有文件

时间:2021-05-18

  下面要和大家分享的是Vba设置批量删除指定文件夹下的所有文件?一起来看看吧。

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

  2、接着找到 左上角的文件按钮, 选择选项按钮,如下图所示:  

  3、在弹出的对话框中选择信任中心,并选择信任中心设置,接着选择隐私选项,并把保存时删除个人信息的对号去掉,整体设置完成, 按快捷键ALT+F11, 打开VBA编辑界面,并插入一个模块,如下图所示:  

  4、插入后将如下代码复制到模块中, Sub 删除指定文件夹下的所有文件()

  For i% = 1 To Range("A1048576").End(xlUp).Row

  Kill Cells(i, 1) & "\*.*”

  Next

  End Sub

  如下图所示:  

  5、接着我们看到新建文件夹的路径里有很多excel文件,这就是我们需要删除的文件,如下图所示:  

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

  7、然后找到批量提取文件名和修改文件名的宏文件,如下图所示:  

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

  9、找到后即可看到所有的文件路径已经生成, 此时需要用&公式将完整路径进行合并, 如下图所示:  

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

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

  12、执行后,我们随便打开一个文件夹,发现里面的内容已经为空了,如下图所示:  

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章