none
Erro 2501: Quando no VBA do Excel executa o comando (A.DoCmd.RunMacro "RUN_Macro") RRS feed

  • Pergunta

  • Estou com uma macro do Excel com o seguinte código:

    Sub Access_Call_NQI()

    Dim A As Object

    For LIN = 0 To aN - 1
       Set A = CreateObject("Access.Application")
       A.Visible = False
       A.OpenCurrentDatabase ("C:\Claro\Database\3G_Access_" & nmf(LIN) & ".accdb")
       A.DoCmd.SetWarnings True
       A.DoCmd.RunMacro "RUN_Macro"
       A.CloseCurrentDatabase
       A.Quit
       Set A = Nothing
    Next LIN

    End Sub

    Quando vai chamar a macro do Access (A.DoCmd.RunMacro "RUN_Macro") dá o erro 2501. 

    Como faço para solucionar?

    Obrigado.

    quarta-feira, 14 de março de 2018 16:30