代碼不復雜，但是不推薦使用，以免誤傷。

如下：

Subtst()Dimwbk,p,pthpth="C:\1\1111\"p=Dir(pth&"*.xls*")DoWhilep<>""Kill(pth&p)p=DirLoopEndSub

注意：1.其中代碼第三行的路徑根據自己需求設定盤符。

2.代碼第四行根據自己需求選擇想要刪除的工作簿的擴展名

3.再次提醒，除非對VBA很了解，否則不推薦使用此方法。