[VBA] Eliminar varias hojas de Excel
Opacho
-
headshoot444 Mensajes publicados 1 Fecha de registro Estado Miembro Última intervención -
headshoot444 Mensajes publicados 1 Fecha de registro Estado Miembro Última intervención -
Hola,
En el marco de un proyecto que contiene VBA, el usuario debe crear distintas hojas (con el fin de una consulta). Al cerrar el libro, me gustaría que todas las hojas creadas se eliminen automáticamente, el problema es que no puedo conocer el nombre de esas hojas y por tanto estoy atascado. He empezado un trozo de código pero me encuentro pronto en un callejón sin salida:
Sub Test()
Application.DisplayAlerts = False
nbfeuille = Worksheets.Count
For i = 4 To nbfeuille (quiero conservar las 4 primeras hojas del libro de Excel)
w = ActiveSheet.Name
Next i
End Sub
Si tenéis alguna solución para mi problema, no sería para nada rechazable ^^
Gracias de antemano.
Configuración: Windows Vista / Internet Explorer 7.0
En el marco de un proyecto que contiene VBA, el usuario debe crear distintas hojas (con el fin de una consulta). Al cerrar el libro, me gustaría que todas las hojas creadas se eliminen automáticamente, el problema es que no puedo conocer el nombre de esas hojas y por tanto estoy atascado. He empezado un trozo de código pero me encuentro pronto en un callejón sin salida:
Sub Test()
Application.DisplayAlerts = False
nbfeuille = Worksheets.Count
For i = 4 To nbfeuille (quiero conservar las 4 primeras hojas del libro de Excel)
w = ActiveSheet.Name
Next i
End Sub
Si tenéis alguna solución para mi problema, no sería para nada rechazable ^^
Gracias de antemano.
Configuración: Windows Vista / Internet Explorer 7.0
2 respuestas
-
Bonjour,
Valable seulement si les feuilles ajoutées le sont "Après" (After)
Sub SuppFeuille() Dim i As Integer Application.DisplayAlerts = False For i = 5 To Sheets.Count Sheets(i).Delete Next i Application.DisplayAlerts = True End Sub
Sinon faut tester les noms des feuilles que tu connais.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
