Exportar tabela para excel

#1

Pessoal, bom dia.
Tenho uma aplicação conforme imagem abaixo. Na mesma seleciono data inicial e data final e através do chart e browser ele mostra as informações filtradas de acordo com as datas.
Porém quando vou plotar o relatório ele só abre na tela Report do próprio elipse E3 e me permite imprimir. Gostaria de ter um botão que me permite filtrar através dos campos já existentes e exportar os dados da tabela para um documento em excel.
Poderiam me ajudar quanto a isso?
Abraços,

tela_grafico
tela_grafico.png902×681 49.2 KB

#2

@andrelsrj

Bom dia, veja este artigo com uma aplicação exemplo em anexo:

Uma outra opção de script utilizando o método SelectMenu do Viewer exportando para PDF ou EXCEL a partir de um botão:

Menu = Application.SelectMenu(“PDF||EXCEL”)
Set ReportGra = Application.LoadReport(“RelatorioGrafico”)
Select Case Menu

Case 1
'Exportar PDF
If Application.ShowFilePicker(False, NomeArquivo,“pdf”, 128, “Arquivos PDF|.pdf|Todos os arquivos|.”) Then

	ReportGra.Export "PDF", NomeArquivo
	End If

Case 2

 'Exportar Excel 
 If Application.ShowFilePicker(False, NomeArquivo,"xls", 128, "Arquivos XLS|.xls|Todos os arquivos|.") Then 

  ReportGra.Export "EXCEL", NomeArquivo
  End If

End Select