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

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

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

3、然后按快捷鍵alt+f11打開(kāi)宏代碼窗口，然后選擇插入模塊命令，如下圖所示：

4、插入后將如下代碼復(fù)制粘貼到模塊中：

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、設(shè)置完成后，接下來(lái)，我們需要找到刪除文件的完整路徑，在這里可以利用另一個(gè)提取文件完整路徑的工具，按快捷鍵alt+f8找到提取文件的宏命令，單擊執(zhí)行，如下圖所示：

6、執(zhí)行后，找到要?jiǎng)h除的文件夾，如下圖所示：

7、然后用&函數(shù)將完整路徑進(jìn)行連接，如下圖所示：

8、接著選中所有路徑，復(fù)制并數(shù)值粘貼到剛剛編寫(xiě)的宏命令對(duì)應(yīng)的excel表格A列中，如下圖所示：

9、最后按快捷鍵alt+f8找到刪除的宏命令，單擊執(zhí)行，即可刪除，如下圖所示：

相關(guān)推薦：

怎么將文件夾文件名都導(dǎo)入到excel表格中?

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

excel怎設(shè)置復(fù)制時(shí)提示不能對(duì)多重選定區(qū)域使用此命令？