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

Ejemplo 01

El siguiente ejemplo abre los libros Libro1.xls y Libro2.xls. La última instrucción permite crear otro nuevo libro que va a ser una copia exacta del libro que está activo. Según la secuencia, el libro activo es Libro2.xls; por lo que seguramente crea otro nuevo libro con el nombre definido por omisión.

Sub Libros02()

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

MsgBox Workbooks("libro1.xls").Name

Workbooks.Open ("C:/libro2")

ActiveWorkbook.Sheets.Copy

End Sub

Observe que en la penúltima instrucción hemos añadido un comentario al final de la misma mediante el uso del apóstrofe: '

Las siguientes instrucciones hace uso del libro activo

MagBox ActiveWorkbook.Name       Imprime el nombre del libro activo

ActiveWorkbook.SaveAs                   Graba el libro activo

ActiveWorkbook.Close                       Cierra el libro activo

MsgBox ActiveWorkbook.Path          Imprime la ruta en donde se encuentra el libro activo.

Ejemplo 02

El siguiente ejemplo permite duplicar un libro determinado

Sub Duplica()

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

ActiveWorkbook.Sheets.Copy

ActiveWorkbook.SaveAs "Kiko.xls"

ActiveWorkBooks.Close

WorkBooks("Libro1.xls").Close

End Sub

d)    Propiedad Add

WorkBooks.Add

Esta propiedad permite crear un nuevo objeto libro el cual se convierte automáticamente en libro activo.

El siguiente ejemplo crea un nuevo libro y modifica alguna de las propiedades del nuevo libro

Ejemplo

Sub AddNew()

Set LibroNuevo = Workbooks.Add

    With LibroNuevo

        .Title = "Proforma 01"

        .Subject = "Consultas"

        .SaveAs Filename:="Proformas.xls"

    End With

End Sub

 Cursos Informática Gratuitos