Unidad 5. Programación usando objetos del Excel (VI)

Objeto WorkBook. Propiedades y Métodos. Ejemplos.

El objeto WorkBook representa un libro en Excel. Como objeto, es un elemento de la clase o conjunto WorkBook.  Como clase o conjunto, WorkBook contiene todos los objetos WorkBooks abiertos en un momento determinado en Microsoft Excel.

Muchos miembros de la clase Application se presentan también como miembros de la clase WorkBook.

En la clase WorkBook las propiedades se aplican a un libro específico en lugar de aplicarse al libro activo.

Propiedades del objeto WorkBook

Algunas de las propiedades del objeto WorkBook son las siguientes:

a)    Propiedad WorkBooks

Devuelve todos los libros abiertos.

Se puede usar como

            Application.WorkBooks.

O también simplemente

            WorkBooks.

Ejemplo 01

Abrir el libro Tempo.xls que se encuentra en la unidad y carpeta en uso.

WorkBooks.Open FileName:="Tempo.xls"

Ejemplo 02

Abrir un libro que se encuentra en una unidad y carpeta que no está en uso.

Workbooks.Open Filename:="G:/Libros/Progmacros/Pedidos.xls"

Abre el archivo Pedidos.xls que se encuentra en la carpeta ProgMacros dentro de la carpeta Libros, de la unidad G. Como se puede apreciar, el nombre del libro viene precedida por la ruta donde se encuentra dicho libro-

Ejemplo 03

El siguiente ejemplo permite activar el segundo libro que ya está abierto.

WorkBooks(2).Activate

Ejemplo 04

El siguiente ejemplo abre el libro "Libro1.xls", imprime en pantalla el nombre del libro abierto, abre también el libro "libro2.xls"; activa el primero y cierra el segundo. Para ejecutarlo, debe estar abierto un libro cualquiera diferente a Libro1 y Libro2, conteniendo la macro.

Sub Libros01()

Workbooks.Open ("C:/Libro1.xls")

MsgBox Workbooks("Libro1.xls").Name

Workbooks.Open ("C:/libro2")

Workbooks("Libro1.xls").Activate

Workbooks("Libro2.xls").Close

End Sub

b)    Propiedad ActiveWorkBook

Esta propiedad devuelve el libro activo; es decir, hace referencia al libro activo de tal forma que cualquier acción que se pueda ejecutar, afectará al libro abierto y activo, dentro del grupo de libros que pudieran estar abiertos.

Ejemplo

El siguiente ejemplo imprime en pantalla el nombre del libro activo

MsgBox ("El nombre del libro activo es " & ActiveWorkBook.Name

Ejemplo

En el siguiente esquema se ejecuta una serie de acciones estando en uso el libro activo

With ActiveWorkBook

            Nombre     = .Name

            Ruta          = .Path

            HojaActiva = .Sheets(1).Select

            Proteger    = .Protect

End With

c)    Propiedad Open

WorkBooks.Open Nombre

Permite abrir un libro existente (ya grabado) cuyo nombre es "Nombre".

Si el libro no se encuentra en la unidad y carpeta en uso, el nombre del libro debe contener la ruta donde se ubica el libro

Ejemplo

Sub OpenUp()

    Workbooks.Open("C:\MyFolder\MyBook.xls")

End Sub

 Cursos Informática Gratuitos