Criar ou substituir uma planilha

Os exemplos a seguir mostram como determinar se existe uma planilha e, em seguida, como criar ou substituir a planilha.

Código de exemplo fornecido por: Tom Urtis, Atlas programação de gerenciamento

Determinando se existe uma planilha

Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4" usando a propriedade Name do objeto Worksheet . O nome da planilha é especificado pela mySheetName variável.

Sub TestSheetYesNo()
    Dim mySheetName As String, mySheetNameTest As String
    mySheetName = "Sheet4"
    
    On Error Resume Next
    mySheetNameTest = Worksheets(mySheetName).Name
    If Err.Number = 0 Then
        MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
    Else
        Err.Clear
        MsgBox "The sheet named ''" & mySheetName & "'' does NOT exist in this workbook."
    End If
End Sub

Criando a planilha

Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4". O nome da planilha é especificado pela mySheetName variável. Se a planilha não existir, este exemplo mostrará como criar uma planilha chamada "Sheet4" usando o método Add do objeto Planilhas .

Sub TestSheetCreate()
    Dim mySheetName As String, mySheetNameTest As String
    mySheetName = "Sheet4"
    
    On Error Resume Next
    mySheetNameTest = Worksheets(mySheetName).Name
    If Err.Number = 0 Then
        MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
    Else
        Err.Clear
        Worksheets.Add.Name = mySheetName
        MsgBox "The sheet named ''" & mySheetName & "'' did not exist in this workbook but it has been created now."
    End If
End Sub

Substituindo a Planilha

Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4". O nome da planilha é especificado pela mySheetName variável. Se a planilha existir, este exemplo mostrará como excluir a planilha existente usando o método Excluir do objeto Planilha e criar uma nova planilha chamada "Sheet4".

Importante Todos os dados na planilha original chamada "Sheet4" são excluídos quando a planilha é excluída.

Sub TestSheetReplace()
    Dim mySheetName As String
    mySheetName = "Sheet4"
    
    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets(mySheetName).Delete
    Err.Clear
    Application.DisplayAlerts = True
    Worksheets.Add.Name = mySheetName
    MsgBox "The sheet named ''" & mySheetName & "'' has been replaced."
End Sub

Sobre o colaborador

MVP Tom Urtis é o fundador da Atlas programação gerenciamento, uma empresa com soluções de gerenciamento completas de serviço do Microsoft Office e Excel localizada no Silicon Valley. Tom tem mais de 25 anos de experiência do gerenciamento de negócios e desenvolvimento dos aplicativos Microsoft e é co-autor de "Holy Macro! São 2.500 exemplos de VBA do Excel."

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.