Office 2016 problemi compatibilità Private Declare Function

[deniel69]

Buona sera a tutti.

Chiedo aiuto per un problema di compatibilità di codice.

la stringa

Codice: Seleziona tutto

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _

Mi crea problemi se apro il il file excel con office 2016, mentre se lo apro con versioni precedenti
non ho problemi.

Come posso modificare il codice in modo da poter far funzionare le macro in base alla versione di office?

Grazie a tutti anticipatamente

[PcBase]

Ciao

Non hai allegato un codice completo
Guarda il COLLEGAMENTO http://www.jkp-ads.com/articles/apideclarations.asp

[deniel69]

Il problema è il "Private Declare Function" che non viene riconosciuto da excel 2016 mentre in versioni inferiori
non c'è problema!

O meglio se non ho capito male il problema non è la versione di excel ma il fatto che sia la versione a 32 bit o la versione a 64
per i 64 bit la forma corretta è "PrtSafe" ed io vorrei magari creando un controllo if per poter aprire il mio foglio con macro
senza problemi in entrambi i casi.......

Grazie!

[PcBase]

Ciao
Infatti: devi solo creare un controllo if per poter aprire il mio foglio con macro
senza problemi in entrambi i casi

Se non riesci devi almeno postare i codici che utilizzano Api di windows

[Anthony47]

Beh, se non c'e' riuscito la prima volta...

E' spiegato nell'articolo:

Since the 64 bit declarations also work on 32 bit Office 2010, all you have to test for is VBA7:
#If VBA7 Then
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
#Else
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
#End If

Quindi, nel tuo caso:

Codice: Seleziona tutto

#If VBA7 Then
   Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If


Questo dando per assodato che la Declare che usi e' quella che avevi gia' citato.
Ciao

[deniel69]

In realtà mi sono accorto del link all'articolo dopo aver risposto PcBase, e poi non ho più avuto tempo di rispondere a PcBase.
Ho inserito il codice cosi come lo hai postato tu ma mi segnala rosso ed errore comunque la "Private Declare Function.....".

Dove sto sbagliando?

Non capisco, scusate........

[Anthony47]

Potresti avere quella situazione su Office 2003 o inferiori (forse anche su 2007), dove la costante VBA7 non e' conosciuta.
Tuttavia il codice in rosso e quello che non sara' compilato, quindi credo che il comportamento finale sara' corretto.

Ciao

[deniel69]

Grazie Anthony, infatti il codice è rosso ma il file viene aperto senza problemi.

Appena possibile proverò ad aprirlo anche su un 32 bit.

Grazie ancora.