Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

Tenho o seguinte código que executa perfeitamente na mac local quando uso na virtual apresenta o seguinte erro:

O código desse projeto deve ser atualizado para usos em sistemas de 64 bits analise e atualize as instruções e declare e, em seguida, marque-as com o atributo PtrSafe

rotina:

Código:

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
 (pOpenfilename As OPENFILENAME) As Long

Public Type OPENFILENAME
 lStructSize As Long
 hwndOwner As Long
 hInstance As Long
 lpstrFilter As String
 lpstrCustomFilter As String
 nMaxCustFilter As Long
 nFilterIndex As Long
 lpstrFile As String
 nMaxFile As Long
 lpstrFileTitle As String
 nMaxFileTitle As Long
 lpstrInitialDir As String
 lpstrTitle As String
 Flags As Long
 nFileOffset As Integer
 nFileExtension As Integer
 lpstrDefExt As String
 lCustData As Long
 lpfnHook As Long
 lpTemplateName As String
End Type

Olá Gislei,

O tema já foi abordado diversas vezes aqui no fórum, veja:
https://www.maximoaccess.com/t10677-resolvidocodigo-64-bits

Mas existe mais, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Abraço

ok! obrigado

Olá Gislei, obrigado pelo retorno.

Se a dúvida ficou esclarecida, não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

bom dia!
fiquei na duvida quanto como implementar no codigo

a resposta no forum foi:

Código:

#If VBA7 Then

Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
ByVal nCmdShow As Long ) As Boolean

#Else

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

End If

Olá Gislei,

A técnica será a mesma, no entanto é necessário compreender, para poder fazer adaptação do código.
Veja este tópico:
https://www.maximoaccess.com/t31759-resolvidowindows-10-access-16

Na mensagem nº 7 tem um link de um artigo que expilica muito bem.

Abraço