Aprire un file excel 2013 con comando access 2013

Ciao a tutti
chi mi può aiutare a creare un comando in VBA per aprire un file excel 2013 da access 2013
Grazie mille in anticipo a tutti

Spiega cosa intendi per Aprire... perché potrebbe bastati usare il metodo FollowHyperlink che trovi documentato nella guida.

allora io con power query carico i dati che inserisco in access su un file excel con aggiornamenti in tempo reale su uno schermo gigante
quello che serve a me e che con un comando in una maschera di access posso aprire il file excel da qualsiasi computer dove è installato il database
il mio problema sta nel fatto che alcuni computer hanno installato office 2010 altri office 2013
il metodo FollowHyperlink non funziona correttamente me lo apre bene la prima volta che apro il file se poi lo chiudo e lo riapro si blocca tutto
ciao e grazie per la tua risposta

Scusa ma perché devi aprire Excel se i dati sono nel database..?
In tutti i casi se si blocca non è colpa di quanto ti ho suggerito... assolutamente. ... hai una situazione un po confusa a mio avviso

Ciao Alex e scusa se non riesco a farmi capire
allora fino ad ora aprivo tranquillamente in questo modo

Shell """C:\Program Files\Microsoft Office\Office14\excel.exe"" ""C:\Attività linee.xlsx""", vbNormalFocus
il mio problema sta nel fatto che da oggi alcuni computer usano office 2013 altri office 2010
cambia in questo modo
chi ha office 2013 serve questa stringa
Shell """C:\Program Files\Microsoft Office\Office15\excel.exe"" ""C:\Attività linee.xlsx""", vbNormalFocus
chi ha office 2010 serve questa stringa
Shell """C:\Program Files\Microsoft Office\Office14\excel.exe"" ""C:\Attività linee.xlsx""", vbNormalFocus

io vorrei sapere se c'è una funzione if per selezionare la versione installata sul PC
grazie ancora

Premesso che il Metodo FollowHyperlink è li apposta per essere indipendente dalla Versione e fa quello che chiedi..., e se qualche cosa si pianta io cercherei il problema altrove... ti propongo questa ulteriore soluzione

Public Sub ExecuteFile(FilePath As String)
    'Esegue file
    On Error GoTo error
    Dim ret As Integer
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath))
    Exit Sub
error:
    MsgBox Err.Description, vbExclamation, "Error"
End Sub

Passa il Nome del File XLS alla funzione...

Grazie mille Alex è quello che cercavo