Obtener Las Hojas De Un Libro

31/12/2007 - 16:04 por Juan Pablo Puppo | Informe spam
Hola a todos, como obtengo los nombres de todas las hojas de un libro
mediante una macro????, es decir tengo un libre excel que cambian las
solapas mensualmente, pero quiero lograr una macro que busque en este excel
sin importar la cantidad de hojas que este tenga, espero haberme explicado,
saludos y gracias por la ayuda!!! Feliz Año Nuevo a
todos!!!!!!!!!!!!!!!!!!!!!!!!
 

Leer las respuestas

#1 Héctor Miguel
31/12/2007 - 22:17 | Informe spam
hola, Juan Pablo !

... como obtengo los nombres de todas las hojas de un libro mediante una macro????
es decir tengo un libre excel que cambian las solapas mensualmente
pero quiero lograr una macro que busque en este excel sin importar la cantidad de hojas que este tenga ...



seria interesante conocer que debe hacer dicha macro con los nombres de las hojas que se vaya encontrando ???
y tambien si comentas que es lo que piensas/necesitas/... hacer (tu) despues con cada uno de esos nombres ???
y si vas a ejecutar la macro por cada mes o en cada ocasion en la que se modifique el nombre de alguna hoja ???

en via de mientras, te paso un procedimiento para obtener los nombres de las hojas en el libro sin macros...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

1) asegurate que la hoja para el resumen sea la primera en el orden (o indice) de las hojas en el libro

2) pon el siguiente titulo (p.e. en la celda A1 de esa hoja, ya lo modificaras segun sea necesario)
[A1] -> Hojas en el libro

3) define el siguiente nombre (menu: insertar / nombres / definir...)
nombre se refiere a:
-> Hojas =indicar.libro(1+0*hoy())

4) escribe las siguientes formulas:
[A2] =elegir(1+(fila()>contara(hojas)),extrae(indice(hojas,fila()),encontrar("]",indice(hojas,1))+1,31),"")

5) copia/arrastra/... la formula de A2 n_filas hacia abajo (segun hojas existan o necesites dejar preparadas)

6) solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si tu excel es en ingles... modifica la formula del nombre [Hojas]...
de -> =indicar.libro(1+0*hoy())
a -> =get.workbook(1+0*now())

Preguntas similares