Executar macro do Excel através de macro do Project

Em muitas aplicações onde precisamos reaproveitar todo o código já existente em uma macro temos a opção de simplesmente acioná-la. Então mostrarei aqui como executar uma macro através de outra macro VBA.

Neste exemplo utilizarei o seguinte cenário:

Através do Project, instanciarei uma aplicação do Excel e então executar uma macro presente dentro de um determinado arquivo Excel chamada Macro1.

Set xl = CreateObject("Excel.Application")

xl.Application.Visible = True

Dim vFile As Variant

vFile = "C:\arquivo.xls"

xl.Application.Workbooks.Open vFile

xl.Application.Run ("Macro1")

Comentário:

Na primeira linha é criado o objeto referente à aplicação do Excel e então deixando visível na segunda linha.

Na quinta linha é aberto uma workbook com o caminho do arquivo xls especificado na quarta linha na variável vFile.

Então na última linha é executado o comando que roda a macro dentro deste arquivo Excel chamada Macro1.