如何批量删除指定目录下所有EXCEL文件的指定工作表 - 中国DOS联盟论坛

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

第1楼　hnmzj	发表于 2007-03-09 03:37
新手上路　发帖 2　积分 7
如何批量删除指定目录下所有EXCEL文件的指定工作表如何批量删除指定目录下所有EXCEL文件的指定工作表？谢谢！！

第2楼　ccwan	发表于 2007-03-09 03:58
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
这样的工作应该用vba来完成才好，批处理根本不适合

第3楼　jmz573515	发表于 2007-03-09 04:28
银牌会员　发帖 464　积分 1,212
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