标题: 如何批量删除指定目录下所有EXCEL文件的指定工作表 [打印本页]
作者: hnmzj 时间: 2007-3-9 03:37 标题: 如何批量删除指定目录下所有EXCEL文件的指定工作表
如何批量删除指定目录下所有EXCEL文件的指定工作表？谢谢！！
作者: ccwan 时间: 2007-3-9 03:58
这样的 工作应该用vba来完成才好，批处理根本不适合
作者: jmz573515 时间: 2007-3-9 04:28
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
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