怎樣刪除工作簿里的多個文件

㈠ 我有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刪除後無法恢復,請操作前確定自己要這么做.