CODE: [Copy to clipboard]
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