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![]()
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 soluzionePublic 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 SubPassa il Nome del File XLS alla funzione...
Grazie mille Alex è quello che cercavo