Come eliminare un foglio specifico se esiste nella cartella di lavoro?

Come puoi eliminare un foglio di lavoro specifico se esiste all'interno di una cartella di lavoro? Normalmente, è necessario trovarlo e verificarlo se esiste, quindi eliminarlo manualmente. Qui, parlerò di un modo semplice per eliminare direttamente il foglio di lavoro specificato se esiste nel file Excel.

Elimina un foglio di lavoro specifico se esiste in una cartella di lavoro con codice VBA

---

Elimina un foglio di lavoro specifico se esiste in una cartella di lavoro con codice VBA

Il seguente codice VBA può aiutarti a eliminare il foglio di lavoro specificato se esiste nella cartella di lavoro, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: elimina un foglio di lavoro specifico se esiste nella cartella di lavoro

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. Quindi premere F5 chiave per eseguire questo codice, viene visualizzata una finestra di messaggio per ricordarti di digitare il nome del foglio che desideri verificare se esiste, vedi screenshot:

4. E poi clicca OK pulsante:

(1.) Se il foglio esiste, verrà eliminato immediatamente, vedi screenshot:

(2.) Se il foglio non esiste, verrà visualizzata una finestra di messaggio per ricordarti come mostrato nella seguente schermata: