A continuación veremos un programa en Excel VBA que hace un bucle a través de todos los libros y hojas de trabajo abiertos , y muestra todos los nombres.
Situación:
Añade las siguientes líneas de código al botón de comando:
1. Primero, declaramos dos objetos y una variable. Un objeto de tipo Libro de trabajo que llamamos libro, un objeto de tipo Hoja de trabajo que llamamos hoja, y una variable de tipo Cadena que llamamos texto.
Libro oscuro como libro de trabajo, hoja como hoja de trabajo, texto como cuerda
2. Queremos hacer un bucle con todos los libros de trabajo abiertos. Para lograrlo, agregue la siguiente línea de código:
Para cada libro en los libros de trabajo
3. Escribimos el texto «Libro de trabajo»: «, el nombre del libro de trabajo, y el texto «Hojas de trabajo»: «» al texto variable.
texto = texto & «Libro de trabajo»: » & libro.Nombre & vbNewLine & «Hojas de trabajo: «& vbNewLine
Nota: puedes usar el operador & para concatenar (unir) elementos. Para iniciar una nueva línea, puedes usar vbNewLine.
4. Para hacer un bucle en todas las hojas de trabajo de un libro de trabajo, añade la siguiente línea de código:
Para cada hoja del libro. Hojas de trabajo
5. Escribimos los nombres de las hojas de trabajo de un libro de trabajo en el texto variable.
texto = texto & hoja.Nombre & vbNewLine
6. Cierra el segundo bucle.
Próxima hoja
7. Añade una línea blanca.
text = text & vbNewLine
8. No te olvides de cerrar el primer bucle.
Próximo libro
9. Finalmente, mostramos el texto variable usando un MsgBox.
Texto de MsgBox
10. Pruebe el programa. Antes de hacer clic en el botón de comando, dale a tus hojas de trabajo algunos nombres descriptivos y abre un libro de trabajo en blanco con tres hojas de trabajo.
Resultado:
