Como executar macros em outro arquivo no Excel.

Uma funcionalidade interessante de aplicativos Office é a possibilidade de executar macros de outros arquivos, mesmo que estes não estejam abertos.

Para fazer um teste, começe criando um arquivo, no Excel mesmo e crie a seguinte macro:

Public Sub testeMacro()
MsgBox "Executou a macro em testeMacro.xls!"
End Sub

A observação aqui é que a macro deve obrigatoriamente Pública, como é mostrado neste exemplo. Grave a pasta de trabalho com o nome testeMacro.xls. Abra agora uma nova pasta de trabalho e nesta, crie uma nova macro com a seguinte código:

Sub teste()
Application.Run "testeMacro.xls!testeMacro"
End Sub

O método Run serve exatamente para execução de macros no VBA. Salve este arquivo com qualquer nome, porém, na mesma pasta onde a pasta testeMacro.xls foi salva. Agora, execute a macro teste clicando em F5 e veja que o resultado é a MsgBox com a mensagem "Executou a macro em testeMacro.xls!", conforme haviámos configurado.

Caso queira executar a macro que esteja localizada em algum outro arquivo, basta ao invés de informar somente o nome do arquivo, usar o caminho completo, por exemplo:

Application.Run "C:\temp\arquivo.xls!outraMacro"

É possível inclusiva passar parâmetros para tal função, bastando apenas informá-los após a chamada da função, por exemplo, para a macro:

Public Sub testeMacro(ByVal mensagem As String)
MsgBox mensagem
End Sub

A chamada seria:

Sub teste()
Application.Run "testeMacro.xls!testeMacro", "Minha mensagem"
End Sub

Abraços

Tomás Vásquez
http://www.tomasvasquez.com.br