[Resolvido]Código para office 2007 32 bits e 2013 32 e 64 bits

Bom dia Pessoal.
Eu li vários tópicos a respeito deste assunto, porém não consegui resolver o meu problema, apesar de ser muito próximo a cada tópico lido...
Inclusive li o tutorial do mestre avelino em sua página.

o que acontece é o seguinte: atualmente usamos o office 2007 32 bits em sistemas windows 64 bits e 32 bits...
e nunca tive problema com o código.

Porém estou atualizando parte das máquinas para o office 2013 64 bits em windows 10, algumas máquina permanecerão com o windos 7 32 ou 64 bits com o office 2007 32 bits instalado (por questão de custo).
o fato é que eu tentei resolver as "public declare" como na página da microsoft / site avelino / fórum... e nada consegui ainda.

agradeço quem puder me ajudar.

Código:

Private Sub AbreSis()
#If VBA6 Then
Public 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

#ElseIf VBA7 Then
    #If Win64 Then
    ' O erro acontece aqui, pois ele não reconhece o PtrSafe no 2007 32 bits
Public Declare PtrSafe 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 LongPtr

    #Else
Public 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

#Else
MsgBox "Não foi possível verificar a versão do seu computador. Verifique com o departamento de informática.", vbCritical, "LOCALIZAR VERSÃO"
#End If

End Sub

Ola;

Isso é uma API do windows e você está a inseri-la num Sub "Private Sub AbreSis()", penso que não resultará.
A API tem de ser declarada no inicio do modulo.

Se fizer o teste somente assim, não funciona ?????

Código:

#If VBA7 Then
'64 bits
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
'32 bits
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

Boa tarde.
Obrigado pelo retorno...
ainda não funciona, esqueci de mencionar que ja havia feito inicialmente desta forma, conforme manda o manual da microsoft...

fiquei pensando se não falta alguma referencia....mas não sei qual é.

Vale lembrar que o SP instalado é 3.

segue print ->

Olá

No 2007 32bits, vai dar sempre erro no módulo, não se assuste que é mesmo assim.
Vai funcionar sem problema.

Tem de testar assim mesmo nas duas máquinas.

Boa tarde.
Deu certo mesmo, mesmo com o "erro no módulo"....
ou seja faltou testar, mas além disso não estava dando certo pq eu estava colocando a extensão errada: estava tentando abrir um accdb e coloquei como mdb.

Obrigado pelo retorno o forum agradece.

Boa tarde.
Sabe o que achei estranho....
o código funciona bem no 32 bits indiferente da ordem das linhas, mas no 64 (VBA7) já não. exemplo:
Este Funciona nos dois sistemas...

Código:


#If VBA7 Then
'64 bits
Declare PtrSafe Function xxxxxxx
#Else
'32 bits
Declare Function xxxxxxxx
#End If


Já este Funciona apenas no sistema 32bits

Código:


#If VBA6 Then
'32 bits
Declare Function xxxxxxxx
#Else
'64 bits
Declare PtrSafe Function xxxxxxx
#End If


é normal?