如何批量删除指定目录下所有EXCEL文件的指定工作表？谢谢！！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何批量删除指定目录下所有EXCEL文件的指定工作表
查看 1,047 回复 2
楼 主
如何批量删除指定目录下所有EXCEL文件的指定工作表
发表于 2007-03-09 03:37 · 中国 北京 联通
第 2 楼
发表于 2007-03-09 03:58 · 中国 河北 廊坊 三河市 移动
这样的 工作应该用vba来完成才好，批处理根本不适合
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 3 楼
发表于 2007-03-09 04:28 · 中国 辽宁 本溪 联通
1、写了一个，请测试后使用。(以工作表的名称来删除的...)下面的代码要删除工作表名称为“Sheet2”。
2、你想删除的每个EXCEL文件中必须得有“同样工作表”（也就是想删除的名称），否则会出错。
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
论坛跳转: