O exemplo abaixo demonstra como podemos executar um acesso de macro de outro aplicativo ou banco de dados usando oAutomação OLE.
Realizamos as seguintes etapas:
- vamos criar dois bancos de dados Access chamando-os de TestDB.mdb e TestDB2.mdb
- no primeiro banco de dados TestDB.mdb, criamos uma macro chamando-a de TestMsg com a seguinte ação: Janela de mensagem "Testar macro"
- no segundo banco de dados TestDB2.mdb, criamos outra macro chamando-a de TestMsg com a seguinte ação: Janela de mensagem: "Test Macro2"
- no aplicativo que você vai usar, escolha entre as referências Biblioteca de objetos do Microsoft Access (da versão 8.0 em diante)
Vamos criar o seguinte Sub:
Sub RunMacroX () Dim objACC As New Access.Application
Definir objACC = GetObject ("C: TestDB.mdb") 'abrir primeiro banco de dados objACC.DoCmd.RunMacro ("TestMsg")' executar macro objACC.Quit Definir objACC = GetObject ("C: TestDB2.mdb") 'abrir segundo banco de dados objACC.DoCmd.RunMacro ("TestMsg") 'execute a macro objACC.Quit Set objACC = Nothing
End Sub
Caso você receba um erro como este: "A ação ExecutarMacro foi cancelada. Erro 2501"Ou"A ação RunMacro foi cancelada".
O erro é devido à existência de uma declaração Exit Macro ou Stop Macro. Se você notar que, mesmo na presença do erro, a macro concluiu sua atividade, você pode muito bem usar oOn Error Resume Next no início de Sub.
Testado no Office 2003 e Office 2007.
