Access Violation - Perguntas recentes com a tag excel

Benner Report: Exportação para Excel cria arquivo em branco

Fri, 17 Mar 2017 18:08:39 +0000

Tenho um relatório Benner Report que está sendo impresso corretamente, porém ao tentar salvar em excel, o sistema está gerando um arquivo em branco.

O sistema está utilizando o Runner 15

Obs1: Tentei salvar primeiramente com o Tipo "Excel Open XML (*.xlsx), mas sem sucesso. Acabei tentando os outros tipos de exportação em excel também sem sucesso.

Obs2: A Exportação em PDF está funcionando perfeitamente para esse relatório

Obs3: Testei em outros relatórios e a exportação em XLS funciona. Realmente não entendi porque esse relatório em especifico a exportação não funciona. Será que é por causa das quebras?

Problema com formatação de relatório exportado para Excel.

Thu, 12 Mar 2015 12:58:28 +0000

Criei um simples relatório no Runner para testar a exportação para Excel.

O relatório consiste de uma tabela pai (Z_TABELAS) e uma tabela filha (Z_CAMPOS) e exibe apenas os campos: Nome, Legenda e LegendaGrade.

No Runner o relatório aparece normalmente, porém quando exportado ele não fica como deveria (o campo Nome na coluna A da planilha, e o campo Legenda na coluna B da planilha).

Este é o comportamento normal do exportador? Há algo que posso fazer para obter o resultado que espero?

Planilha excel

Thu, 16 Oct 2014 18:08:35 +0000

Existe alguma forma de gerar uma planilha excel através do VBA sem que necessária tenha que ter o excel instalado na máquina. Talvez instanciando algum objeto dentro da macro.

Código para criação da planilha em excel

Dim oXLApp As Object, wb As Object

    Set oXLApp = CreateObject("Excel.Application")

    '~~> Hide Excel
    oXLApp.Visible = False

    '~~> Open files
    Set wb = oXLApp.Workbooks.Add
    Set ws = wb.WorkSheets.Add

    ws.Range("B10") = "Edvaldo VITOR GOMES"
    ws.range("B10").Font.Bold = True
    ws.Range("C10") = "VITOR GOMES"
    ws.Columns("A:F").EntireColumn.AutoFit
    wb.SaveAs "C:\TESTE.xlsx"
    wb.close

    Dim email As Object

    Set email = NewMail

    email.ContentType = "text/html"

    email.IsHtml = True
    email.SendTo = "edvaldo.gomes@benner.com.br"
    email.Subject = "teste"
    email.AddAttachedFile("c:\teste.xlsx")

    email.Text.Add("segue anexo teste")

    email.Send

    Set email = Nothing
    Set oXLApp = Nothing
    Set wb = Nothing
    Set ws = Nothing