[SOLUCIONADO] Error al abrir un Archivo desde un Evento en Access

[gerardo1987]

Hola que tal a todos, no se si este foro de Access aplique tambien para ayuda con macros pero preguntare de todas formas.

Tengo el siguiente codigo, este me permite que cuando le de clic a un boton me habla un archivo en Word:

Código C:

Private Sub Command1_Click()
Dim xWord As Object
Dim xDoc As Object
Set xWord = CreateObject("Word.Application")
xWord.Visible = True
Set xDoc = xWord.Documents.Open("C:\PRUEBA.DOC")
End Sub
 

Pero cuando hice lo mismo para abrir un archivo en Excel me marco error, este es el codigo:

Código C:

Private Sub Command2_Click()
Dim xExcel As Object
Dim xDoc As Object
Set xExcel = CreateObject("Excel.Application")
xExcel.Visible = True
Set xDoc = xExcel.Documents.Open("C:\PRUEBA.XLS")
End Sub
 

El boton para abrir el archivo en Word si me Funciona, pero el boton para abrir en Excel no funciona, alguien me podria ayudar con esto???

[gerardo1987]

Para cerrar el tema ya encontre la solucion para los que pasen por aqui y tengan el mismo problema les paso esta sentencia que me ayudo con mi problema:

Código C:

Dim xExcel As Long
xExcel = Shell("excel.exe c:\PRUEBA.xls", vbMaximizedFocus)