今天要和大家分享的是：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、執行后，我們隨便打開一個文件夾，發現里面的內容已經為空了，如下圖所示：

相關推薦：

Excel中怎么跨表格批量查找匹配數據？

excel怎么設置根據身份證號碼批量插入學生照片？

excel怎么利用vba實現批量套打快遞單批量打印單據?