今天要和大家分享的是：Excel宏命令批量刪除指定路徑下的文件夾

1、首先打開文件夾，可以看到有很多的文件夾，當然這些文件夾如果路徑相同，我們可以全選統一刪除，但是如果這些文件夾不在同一個路徑下，又如何統一刪除呢，如下圖所示：

2、我們需要新建一個工作簿，名字根據自己的需要設定，格式另存為xlsm宏的工作簿，如下圖所示：

3、然后按快捷鍵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找到刪除的宏命令，單擊執行，即可刪除，如下圖所示：

相關推薦：

怎么將文件夾文件名都導入到excel表格中?

excel中怎么使用Vba批量刪除指定文件夾下的所有文件?

excel怎設置復制時提示不能對多重選定區域使用此命令？