Crear o reemplazar una hoja de cálculo

Los siguientes ejemplos muestran cómo determinar si existe una hoja de cálculo y cómo crearla o reemplazarla.

Código de ejemplo provisto por: Tom Urtis, Atlas Programming Management

Determinar si existe una hoja de cálculo

En este ejemplo se muestra cómo determinar si existe una hoja de cálculo denominada "Sheet4" mediante la propiedad Name del objeto Worksheet . El nombre de la hoja de cálculo se especifica en la variable mySheetName.

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

Crear la hoja de cálculo

En este ejemplo se muestra cómo determinar si existe una hoja de cálculo denominada "Sheet4". El nombre de la hoja de cálculo se especifica en la variable mySheetName. Si la hoja de cálculo no existe, este ejemplo muestra cómo crear una hoja de cálculo denominada "Sheet4" usando el método Add del objeto Worksheets.

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

Reemplazar la hoja de cálculo

En este ejemplo se muestra cómo determinar si existe una hoja de cálculo denominada "Sheet4". El nombre de la hoja de cálculo se especifica en la variable mySheetName. Si la hoja de cálculo existe, este ejemplo muestra cómo eliminarla usando el método Delete del objeto Worksheet y luego crea una hoja de cálculo nueva denominada "Sheet4".

Importante Todos los datos de la hoja de cálculo original denominada "Sheet4" se eliminan cuando se elimina la hoja de cálculo.

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

Acerca del colaborador

Tom Urtis, MVP, es el fundador de Atlas Programming Management, una empresa de Silicon Valley que ofrece soluciones empresariales integrales de Microsoft Office y Excel. Tom tiene más de 25 años de experiencia en la administración de negocios y el desarrollo de aplicaciones de Microsoft Office. Es, además, coautor de "Holy Macro! 2500 ejemplos de VBA para Excel".

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.