Como excluir uma planilha específica se houver na pasta de trabalho?

Como você poderia excluir uma planilha específica se ela existir em uma pasta de trabalho? Normalmente, você precisa localizar e verificar se existe e, em seguida, excluí-lo manualmente. Aqui, falarei sobre uma maneira fácil de excluir a planilha especificada diretamente se ela existir no arquivo do Excel.

Exclua uma planilha específica se existir em uma pasta de trabalho com código VBA

---

Exclua uma planilha específica se existir em uma pasta de trabalho com código VBA

O seguinte código VBA pode ajudá-lo a excluir a planilha especificada se ela existir na pasta de trabalho, faça o seguinte:

1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Exclua uma planilha específica se houver na pasta de trabalho

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. Então aperte F5 chave para executar este código, uma caixa de prompt é exibida para lembrá-lo de digitar o nome da planilha que você deseja verificar se existe, consulte a captura de tela:

4. E, em seguida, clique em OK botão:

(1.) Se a planilha existir, ela será excluída de uma vez, veja a imagem:

(2.) Se a folha não existir, uma caixa de prompt aparecerá para lembrá-lo da seguinte imagem mostrada: