怎样删除工作簿里的多个文件

㈠ 我有50个excel工作簿，需要把每个工作簿中的sheet2工作表删除，请问如何一次性删除

如果这些文件在同一文件夹下,例如 d:\dir\
可以用vba完成.

运行excel>按住alt依次按f11,i,m
粘贴下面的代码后按f5即可实现你的想法.

Sub 删除sheet2()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
p = "d:\dir\"
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
ActiveWorkbook.Sheets("Sheet2").Delete
ActiveWorkbook.Save
ActiveWindow.Close
f = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

重要提醒:sheet删除后无法恢复,请操作前确定自己要这么做.