[Resolvido]Menu relatório com opção exportar para Excel

Olá pessoal, gosteria da ajuda de vocês. Uso esse módulo para chamar o menu relatório com clique do botão direito do mouse.
Gostaria de acrescentar no menu a opção: "Exportar para o Excel"

Algum dica?

Código:

Sub fncMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl

' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)

With cmbRightClick

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Impressão Rápida"

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Selecionar Impressora"

' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Configurar Página"

' Add the Mail Recipient (as Attachment)... command.
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Enviar como anexo no e-mail"

' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Salvar como PDF/XPS"

' Add the Close command.
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Fechar Relatório"
End With

Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub


Boa tarde,

obrigatoriamente em um módulo (pode ser qualquer um):

Código:

Public Function fncExporta()
    DoCmd.RunCommand acCmdExportExcel
End Function

No seu código de criar o menu, acrescente o botão de exportação para Excel que chamará a função pública do módulo:

Código:

Set cmbControl = .Controls.Add(msoControlButton, 263, , , True)
cmbControl.onaction = "=subExporta()"
cmbControl.caption = "Exportar para Excel"
cmbControl.onaction = "=fncExporta()"

Aguardamos,

Testado e aprovado, funcionar perfeitamente. Obrigado

Opa! Grato pelo retorno!

Obs.: a linha: cmbControl.onaction = "=fncExporta()" está duplicada. Pode apagar uma delas (só percebi agora   )  

Sucesso!