Cómo saber cuántas hojas tiene un libro de Excel

Puede que os hayáis encontrado en la situación de necesitar ejecutar una macro en todas las hojas de un libro Excel, ya que todas ellas tienen la misma estructura. Para ello, antes de desarrollar nuestra macro, debemos conocer el número de hojas que contiene el libro de trabajo, para poder indicarle a la macro hasta dónde llegar.

Cuántas hojas tiene mi libro Excel

Para contar cuántas hojas tiene un libro de Excel con Visual Basic, se debe declarar una variable Integer, ya que el resultado a la pregunta será un número. Este código no es una macro en sí, sino que debe ser parte de otra.

Dim numerohojas as Integer
numerohojas = sheets.count

Ejecutar una macro en todas las hojas

Si queremos crear una macro para pasar por todas las hojas de un documento, es decir, ejecutar un mismo proceso en todas las hojas del mismo libro hasta la última hoja del mismo, deberíamos utilizar el código anterior. 

Imaginemos que necesitamos escribir la palabra Inicio en la celda A1 de todas las hojas del libro que tenemos abierto. 

Primeramente, habrá que declarar 2 variables Integer, la primera será la letra i, que será donde estemos en cada momento y la segunda numerohojas que será el número de hojas que contiene nuestro archivo.

            

Sub Contarhojas()           
       Dim i, numerohojas as Integer

numerohojas = sheets.count

For i = 1 to numerohojas

                Sheets(i).Activate

                Range("A1") = "Inicio"

           Next i
End Sub

La macro irá activando las hojas una a una comenzando desde la hoja 1, y escribirá la palabra Inicio en la celda A1 en todas las hojas que tenga el libro.

En este ejemplo, el libro tiene 3 hojas.