lunes, 25 de agosto de 2008

Auto Open y Auto Close

Existe una macro de autoarranque que se ejecuta cuando se abre el libro. Se llama auto_open().

Y existe otra que se ejecuta justo antes de cerrar el libro que se llama auto_close().

Código:

Sub Auto_Open()
Dim hora As Double
Dim saludo As String
hora = (Now - Int(Now)) * 24
Select Case hora
Case 6 To 14
saludo = "Buenos días"
Case 14 To 21
saludo = "Buenas tardes"
Case Else
saludo = "Buenas noches"
End Select
MsgBox saludo & " Amo"
End Sub

Equivalente a auto_open existe otra macro Workbook_Open, pero ésta ha de ser guardada no en un módulo normal, sino en ThisWorkbook. Pruebe lo siguiente:

El siguiente procedimiento permite abrir automáticamente el libro Balance.xls al abrir el libro Informe.xls. El procedimiento ha de estar en ThisWorkbook del libro Informe.xls.

Código:

Sub Workbook_Open()
'Apertura de libro Balance
Workbooks.Open Filename:="C:/Temp/Balance.xls"
'Activación del libro Informe
Windows("Informe.xls").Activate
End Sub

2 comentarios:

  1. Gracias cybermaster!!!

    Porque sabes cual es el uso de la internet.

    ResponderEliminar
  2. Hola buenos días, necesitaría saber como realizar una macro para que se auto ejecute osea abra y cierre un archivo excel.

    ResponderEliminar