Elimina foglio di lavoro in Excel tramite VBA

Question

Ho una macro che genera un numero di cartelle di lavoro. Mi piacerebbe che i macro, all'inizio della corsa, controllassero se il file contiene 2 fogli di calcolo e li elimina se esistono.

Il codice che ho provato era:

If Sheet.Name = "ID Sheet" Then 
    Application.DisplayAlerts = False 
    Sheet.Delete 
    Application.DisplayAlerts = True 

End If 

If Sheet.Name = "Summary" Then 
    Application.DisplayAlerts = False 
    Sheet.Delete 
    Application.DisplayAlerts = True 
End If 

Questo codice restituisce un errore:

run time error #424, object required.

probabilmente ho la formattazione sbagliata, ma se c'è un modo più semplice per fare questo, sarebbe molto utile

Answer 1

Considerate:

Sub SheetKiller() 
    Dim s As Worksheet, t As String 
    Dim i As Long, K As Long 
    K = Sheets.Count 

    For i = K To 1 Step -1 
     t = Sheets(i).Name 
     If t = "ID Sheet" Or t = "Summary" Then 
      Application.DisplayAlerts = False 
       Sheets(i).Delete 
      Application.DisplayAlerts = True 
     End If 
    Next i 
End Sub 

NOTA:

Bec ause siamo cancellando, eseguiamo il ciclo all'indietro.

Answer 2

provare questo con i tuoi se dichiarazioni:

Application.DisplayAlerts = False 
Worksheets(“Sheetname”).Delete 
Application.DisplayAlerts = True 

Answer 3

provare questo codice:

For Each aSheet In Worksheets 

    Select Case aSheet.Name 

     Case "ID Sheet", "Summary" 
      Application.DisplayAlerts = False 
      aSheet.Delete 
      Application.DisplayAlerts = True 

    End Select 

Next aSheet 

Answer 4

È possibile utilizzare On Error Resume Next quindi non è necessario scorrere tutti i fogli nella cartella di lavoro.

Nota: quando la cartella di lavoro contiene solo questi due fogli, verrà eliminato solo il primo foglio.

Dim book 
Dim sht as Worksheet 

set book= Workbooks("SomeBook.xlsx") 

On Error Resume Next 

Application.DisplayAlerts=False 

Set sht = book.Worksheets("ID Sheet") 
sht.Delete 

Set sht = book.Worksheets("Summary") 
sht.Delete 

Application.DisplayAlerts=True 

On Error GoTo 0 

Answer 5

Worksheets("Sheet1").Delete 
Worksheets("Sheet2").Delete