Abrir excel desde formulario de access
Hola, es muy muy muy muy urgente
Necesito abrir un .xls que ya tengo creado desde un botón de un formulario de access y todo ello con código de access. Gracias, espero vuestras respuestas
Necesito abrir un .xls que ya tengo creado desde un botón de un formulario de access y todo ello con código de access. Gracias, espero vuestras respuestas
1 Respuesta
Respuesta de jaimeja76
1
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Este es el código standard para abrir un .xls con código access
On Error GoTo Err_Comando0_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub
Este es el código standard para abrir un .xls con código access
