Determinar si Existe Una Hoja

14/07/2004 - 13:48 por MacroAprendiz | Informe spam
Cordial Saludo a todos:

Quisiera saber como puedo determinar si una hoja ya existe
en un libro. Ya que si existe no necesito crearla pero si
no procederé a crearla.

Aunque ya realice una rutina leyendo los indices de cada
una de las hojas, quisiera saber si existe algun metodo
más practico.

Saludos y gracias
 

Leer las respuestas

#1 Héctor Miguel
15/07/2004 - 05:32 | Informe spam
hola, MacroAprendiz !

... como puedo determinar si una hoja ya existe en un libro ... si no procedere a crearla.
... ya realice una rutina leyendo los indices de cada una ... saber si existe algun metodo mas practico.



si necesitas determinar con frecuencia si 'X' hoja existe en un libro...
[te sugiero] una funcion que 'tome' [o 'le pases'] p.e. el nombre de la hoja y 'devuelva' verdadero/falso [p.e.]
en un modulo de codigo 'normal' ==Function HojaExiste(ByVal LaHoja As String) As Boolean
Dim Hoja As Object
On Error Resume Next
Set Hoja = Sheets(LaHoja)
HojaExiste = Not Hoja Is Nothing
Set Hoja = Nothing
End Function
y [una manera de] 'como' llamarla en [otras lineas d]el codigo == If HojaExiste("el nombre de la hoja") Then
' aqui las acciones en caso de que SI exista... '
Else
' aqui las acciones en caso de que NO exista...'
End If

saludos,
hector.

p.d. =>observa<= que en la funcion se busca [solo] en el libro 'activo' y...
- se declara la variable 'Hoja' de un tipo 'Object'
- se 'busca' en la coleccion de objetos 'Sheets' =>el nombre<= [en la 'pestaña'] de 'la hoja'
por lo que, 'el nombre' [que puede modificarlo el usuario] pudiera 'referirse' NO SOLO a hojas de calculo
si tus necesidades fueran mas 'amplias'... ¿comentas datos adicionales?

Preguntas similares