Estou com o mesmo problema. nao consegui ajustar, se puder me ajudar (tenho pouquissima experiencia com isso)

Question

Erro de CompilacaoO codigo desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualiza as instrucoes Declare e, em seguida, marque-as com atributo PtrSafe."Esse foi o erro apresentado para a instrucao abaixo, se puder corrigi-la. Muitissimo obrigado.°

' Macro em VBA para Excel 7.0 (32 bits). VBA em português

Declare Function extenso Lib "Extens32.dll" (ByVal Value _

As String, ByVal Retorno As String) As Integer

Function PassaExtenso(Value As String) As String

'Passa um número para a função extenso

'e recebe-o de volta em palavras

On Error GoTo Passa_Err

Dim Retorno$, x%

Retorno$ = Space$(512) '512 espaços

x% = extenso(Value, Retorno$)

PassaExtenso = Trim$(Retorno$)

Passa_Fim:

Exit Function

Passa_Err:

MsgBox Error$(Err)

Resume Passa_Fim

End Function

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

' Macro in VBA for Excel 7.0 (32-bit). VBA in Portuguese

Declare PtrSafe Function Extended Lib "Extens32.dll" (ByVal Value As String, ByVal Return As String) As Integer

Function ExtensoPasse(Value As String) As String
    'Pass a number to the extended function
    'And gets it back in words
    On Error GoTo Passa_Err

    Dim Return$, x%
    Return$ = Space$(512) '512 spaces

    x% = Extended(Value, Return$)
    ExtensoPasse = Trim$(Return$)

Passa_Fim:
    Exit Function

Passa_Err:
    MsgBox Error$(Err)
    Resume Passa_Fim
End Function

Answer 2

Corrigido...

Muitissimo obrigado pela ajuda.

Answer 3

Obrigado pelo retorno.

Mas nao consegui executar.. Se puder me dar mais esclarecimentos por favor, ou ajustar o codigo

Answer 4

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Para atualizar seu código VBA para uso em sistemas de 64 bits, você precisa adicionar o PtrSafe atributo à sua  Declareinstrução e garantir que todos os ponteiros ou identificadores sejam declarados como . LongPtr Aqui está o seu código atualizado:

O código neste projeto deve ser atualizado para uso em sistemas de 64 bits | Microsoft Learn

Declare a Função PtrSafe Extended Lib "Extens32.dll" (ByVal Value As String, ByVal Return As String) Como Inteiro