Exportar relatório

#1

BOA NOITE, ESTOU TENTANDO FAZER UM SCRIPT PARA EXPORTAR RELATORIO, MAIS DE TODOS OS JEITOS NAO EXPORTA.
DA UMA OLHADA E VEJA ONDE ESTA ERRADO

Sub CommandButton4_Click()
DataIni = Screen.Item(“SPDATAINICIAL2”).Value
DataFim =Screen.Item(“SPDATAFINAL2”).Value

Set Report = Application.LoadReport("[RELATORIOGL]")
Report.Item(“CONSULTAGIL”).SetVariableValue “DATAINICIAL2”, DataIni
Report.Item(“CONSULTAGIL”).SetVariableValue “DATAFINAL2”, DataFim
Report.PrintPreview()

RELATORIOGL.Export “EXCEL”, “D:\RELATORIOGIBA\REPORTS\RELATORIOGL.Excel”

DA ERRO NA LINHA 10, NESTA LINHA

RELATORIOGL.Export "EXCEL", "D:\RELATORIOGIBA\REPORTS\RELATORIOGL.Excel"
#2

Olá, bom dia
Se a sua inteção é apenas exportar acredito que pode remover o comando Report.PrintPreview() então após alterar as variáveis de tempo necessário executar a consulta e por último um ajuste na extensão do arquivo, tente isso colega:

DataIni = Screen.Item(“SPDATAINICIAL2”).Value
DataFim =Screen.Item(“SPDATAFINAL2”).Value

Set Report = Application.LoadReport("[RELATORIOGL]")

Report.Item(“CONSULTAGIL”).SetVariableValue “DATAINICIAL2”, DataIni
Report.Item(“CONSULTAGIL”).SetVariableValue “DATAFINAL2”, DataFim
Report.Item(“CONSULTAGIL”).Execute(True)

Report.Export “EXCEL”, “D:\RELATORIOGIBA\REPORTS\RELATORIOGL.xlsx”
1 Like
#3

O erro dessa linha é que você carregou o relatório na variável “Report”, então é ela que você tem que usar pra fazer o export, além de corrigir a extensão para xlsx:

Report.Export "EXCEL", "D:\RELATORIOGIBA\REPORTS\RELATORIOGL.xlsx"
#4

Boa tarde.
Obrigado meu amigo, deu certo. agradeço que Deus te abençoe hoje e sempre . Amém.

1 Like