18/02/2005, 07:35
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Debes agregar la referencia Microsoft Excel 9.0 Object Library
Option Compare Database
Private Ex As New Excel.Application
Sub RunMacross()
Ex.Visible = True ' abro excel
Workbooks.Open "C:\My Documents\RunMacros.xls" ' abro rl archivo
Workbooks(1).Sheets(1).Select
Ex.Application.Run "RunMacros.xls!Sheet1.Algo" ' corro un macros de un Sheet (Hoja)
Ex.Application.Run "RunMacros.xls!Macro7" ' corro el macros de un módulo
End Sub |