Aprender MS Project
02/12/2009Back Up SQL Express
11/12/2009Aquí he encontrado un pequeño código para añadir a un botón de access y que nos permita abrir un fichero Excel.
Private Sub Comando35_Click()
On Error GoTo Err_Comando35_Click
Dim xls As Object
Set xls = CreateObject(“excel.application”)
xls.Visible = True
xls.Workbooks.Open (“\\sqlserver\DATOS\Reporting\prueba.xls”)
Exit_Comando35_Click:
Exit Sub
Err_Comando35_Click:
MsgBox Err.Description
Resume Exit_Comando35_Click
End Sub
Gracias a: Gerardo García Ortíz
