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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: a lo largo de 2024, eliminaremos gradualmente los problemas de GitHub como mecanismo de comentarios para el contenido y lo reemplazaremos por un nuevo sistema de comentarios. Para obtener más información, consulte:Enviar y ver comentarios de