中国DOS联盟

如何批量删除指定目录下所有EXCEL文件的指定工作表？谢谢！！

这样的 工作应该用vba来完成才好，批处理根本不适合

1、写了一个，请测试后使用。(以工作表的名称来删除的...)下面的代码要删除工作表名称为“Sheet2”。

2、你想删除的每个EXCEL文件中必须得有“同样工作表”（也就是想删除的名称），否则会出错。

set ws=createobject("wscript.shell") 

path=ws.currentdirectory

set fso=createobject("scripting.filesystemobject") 

set folder=fso.getfolder(path)

set files=folder.files 

for each file in files 

if right(file,3)="xls" then call excel(file)

next

msgbox "操作成功！",48+4096,"系统提示"

sub excel(a)

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open(a)

    objexcel.Sheets("Sheet2").Select '删除名为“Sheet2”的工作表 ，你可以自行更改

    objexcel.ActiveWindow.SelectedSheets.Delete

    objExcel.ActiveWorkbook.Save

objExcel.Quit

end sub