Enlazar ficheros con Access

[mendietar]

Gracias CMSP. Lo cierto es que no completé el mensaje anterior.

Mi intención es que abra un determinado documento de Excel cuando pulse sobre un nodo de un TreeView. Para Word ya lo he conseguido, pero excell se me resiste.

Aqui os dejo el código que uso para Word a ver si os inspira:

Sub OpenWordDoc(strDocName As String)
Dim objApp As Object

Set objApp = CreateObject("Word.Application")
objApp.Visible = True
objApp.Documents.Open strDocName
End Sub

Con Excel uso el siguiente pero cuando lo ejecuto es como si lo abriese y cerrase muy rápido:

Sub OpenExcelDoc(strExcelName As String)
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
End Sub


UN SALUDO