如下:
Subtst()Dimwbk,p,pthpth=”C:\1\1111\”p=Dir(pth&”*.xls*”)DoWhilep<>””Kill(pth&p)p=DirLoopEndSub
注意:1.其中代码第三行的路径根据自己需求设定盘符。
2.代码第四行根据自己需求选择想要删除的工作簿的扩展名
3.再次提醒,除非对VBA很了解,否则不推荐使用此方法。
首页 >
如下:
Subtst()Dimwbk,p,pthpth=”C:\1\1111\”p=Dir(pth&”*.xls*”)DoWhilep<>””Kill(pth&p)p=DirLoopEndSub
注意:1.其中代码第三行的路径根据自己需求设定盘符。
2.代码第四行根据自己需求选择想要删除的工作簿的扩展名
3.再次提醒,除非对VBA很了解,否则不推荐使用此方法。
求推荐一个好用的舆情监测软件,要数据全面的,实力强的? - 网络| | 求推荐一个好用的舆情监测软件,要数据全面的,实力强的? - 网络| ...