| Pregunta: | 56598 - ABRIR EXCEL DESDE ACCESS |
| Autor: | unai alberdi |
| Hola, necesito abrir un .xls q ya tengo creado desde un formulario de access. Con un boton en el formulario q enlace a esa hoja, pero cual es el codigo para esa funcion?? gracias | |
| Respuesta: | Luis Alejandro Parra |
| Recuerda que debes tener agregada la referencia pertinente
Public Function AbrirExcel(strNombreExcel As String) Dim oExcel As Excel.Application On Error GoTo errAbrirExcel DoCmd.Hourglass True 'Abrimos la aplicación Excel Set oExcel = New Excel.Application 'Abrimos el fichero. oExcel.Workbooks.Open strNombreExcel 'Asà puedes ejecutar una macro. oExcel.Run "MiMacro" 'Mostramos la hoja. oExcel.visible = True DoCmd.Hourglass False Cerrando: Set oExcel = Nothing Exit Function errAbrirExcel: MsgBox Err.Description Resume Cerrando End Function | |