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