[Resolvido]Executar Macro excel pelo Access

oi Amigos,

Sou no relativamente novato com o access, pesquisei aqui, mas confesso que achei difícil entender.

Tenho um formulário com um botão, este botão exporta o resultado de uma consulta para o excel.
Tenho um excel com uma macro que transforma (formata o layout e outras coisas) deste arquivo que o access gerou.
Minha dúvida acredito ser simples, como faço para executar uma macro do excel via access.
Quero incluir após o comando de exportar deste botão algo simples para executar a consulta, algo do tipo como faço para executar outros códigos através de um código.

CALL "caminho e nome do arquivo excel", "nome da macro"

Abraços a todos.

Para isso você precisará marcar a biblioteca relativa ao Excel na lista de Referências. Depois, utilizar um objeto setando-o para o arquivo desejado. Após isso, basta utilizar o método Run para abrir uma macro ou módulo no arquivo do Excel.

Oi,

Coloquei o código abaixo, mas está informando erro:
Erro de compilação
o tipo definido pelo usuário não foi definido

Pode me ajudar para resolver o problema que está dando na parte marcada?



Private Sub Comando468_Click()
'Executar macro no Excel
Dim appExcel As Excel.Application
Dim appExcelWorkbook As Excel.Workbook
Set appExcel = New Excel.Application
Set appExcelWorkbook = appExcel.Workbooks.Open(FileName:="\\netprd03\suprimentos\Arrumar arquivos regionais.xlsb")
appExcel.Visible = True
appExcel.Run "Formatar_arquivo_Direto"

End Sub

Faltou marcar a o Excel nas referências conforme mencionei acima.
Tambem é bom colocar um Set NomeVariável = Nothing no final de tudo, para liberar a memória do sistema:

....
Set appExcelWorkbook = Nothing
Set appExcel = Nothing

Reescrevi o código.... ele está rodando, mas como não sou muito bom nisso tem como vc dar uma analisada?

Coloquei para não ser visível
Quero "fechar" liberar a memória, veja se isto está funcionando

'Executar macro no Excel
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
Set e = CreateObject("Excel.Application")
Set pasta = e.Workbooks.Open("\\netprd03\suprimentos\Arrumar arquivos regionais.xlsb")
e.Visible = False
e.Run "Formatar_arquivo_Direto"

Set oApp = Nothing
Set e = Nothing

End Sub

Você declarou a variável "oApp" mas usou foi a "e" que não foi declarada. Tente assim:

'Executar macro no Excel
Dim oApp As Object

Set oApp = CreateObject("Excel.Application")

oApp.Workbooks.Open("\\netprd03\suprimentos\Arrumar arquivos regionais.xlsb")
oApp.Visible = False
oApp.Run "Formatar_arquivo_Direto"

Set oApp = Nothing

Bom dia,
Coloquei o seu novo código e está funcionando.
Mas ainda tenho uma dúvida.....
Quando coloco o "Visible = True", quando ele acaba o Excel continua aberto.
Minha dúvida é, mudando o Visible para False ele não continuará ativo no computador?
Com o "Set oApp = Nothing" e a função "oApp.Visible = False", o excel realmente não está em execução no computador?


[]s

Adicione um oApp.Application.Quit antes da linha do Set oApp = Nothing. Para testar se tudo funciona a contento, execute a função e depois dela finalizada, abra o Gerenciador de Tarefas e verifique se o tem algum processo do Excel lá. Mas para isso não pode ter outro documentos Excel aberto.

maravilha....
funcionou.

Obrigado e sucesso a vc.