O VBA que vem junto com a instalação do Microsoft Office disponiliza alguns métodos e coleções que facilitam a manipulação de seus próprios aplicativos.
Por exemplo, o objeto Application disponibiliza o método ActivateMicrosoftApp que recebe por parâmetro um Enum que contém os seguintes valores:
Nome |
Valor |
Descrição |
xlMicrosoftAccess |
4 |
Microsoft Office Access |
xlMicrosoftFoxPro |
5 |
Microsoft FoxPro |
xlMicrosoftMail |
3 |
Microsoft Office Outlook |
xlMicrosoftPowerPoint |
2 |
Microsoft Office PowerPoint |
xlMicrosoftProject |
6 |
Microsoft Office Project |
xlMicrosoftSchedulePlus |
7 |
Microsoft Schedule Plus |
xlMicrosoftWord |
1 |
Microsoft Office Word |
O código abaixo por exemplo, abre o Microsoft Word. Caso o Word já esteja aberto, ele simplesmente o ativa, dando a ele o foco.
Sub StartWord()
Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub
Claro que para o código funcionar, é preciso que o aplicativo esteja instalado no computador. Por exemplo, tentar abrir o Microsoft Project sem tê-lo instalado gera o seguinte erro:
Cannot run ‘WINPROJ.EXE’. The program or one of its components is damaged or missing.
Bom proveito!
Tomás Vásquez
www.tomasvasquez.com.br