中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何批量删除指定目录下所有EXCEL文件的指定工作表

hnmzj
新手上路

积分 7
发帖 2
注册 2007-3-9
状态离线

『楼主』: 如何批量删除指定目录下所有EXCEL文件的指定工作表

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

2007-3-9 03:37

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 2 楼』:

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

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2007-3-9 03:58

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 3 楼』:

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

2007-3-9 04:28

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: