请问，如何如何批量删除很多个Excel表格的sheet1

Question

我有449张表格发给同事，但因所有表格中sheet1的内容涉及保密内容，如何批量删除

Answer 1

Sub 打开1()
Dim myPath$, AK As Workbook, OAK As Workbook, strName As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OAK = ActiveWorkbook
myPath = "C:\Users\Administrator\Desktop\新建文件夹" ‘修改为文件路径
Application.ScreenUpdating = False
Set FD = FSO.GetFolder(myPath)
I = 1
For Each f In FD.Files
strName = f
strName = VBA.Right(strName, 3)
If strName = "xls" Or strName = "lsx" Then
Set AK = Workbooks.Open(f.Path, , fasle)
AK.Sheets("Sheet1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
AK.Save
AK.Close False
I = I + 1
Else
End If
Next
Application.ScreenUpdating = True
End Sub来自：求助得到的回答

Answer 2

Sub test()
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Index > 7 Then sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub追问

请问，具体如何操作。谢谢

本回答被网友采纳