MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas

    avatar
    jair.silva
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 31/05/2012

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Empty [Resolvido]Exportar para excel relatório acima de 300 mil linhas

    Mensagem  jair.silva 15/8/2017, 02:51

    Boa noite galera..

    Tenho um relatório que possui filtro ao abrir que funciona perfeitamente com o código descrito abaixo:

    DoCmd.OutputTo acOutputReport, "RL_StatusAtualCS", "MicrosoftExcelBiff8(*.xlsx)", "C:\SISGER" & getUsuarioAtual & ".xlsx", False, "", 0, acExportQualityScreen


    O problema é que esse relatório hoje possui mais de 350000 linhas e ele simplesmente começa o processo de exportação porem no final esta apresentando uma mensagem de "estouro"

    Ha uma maneira de se contornar este erro? Basketball
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10613
    Registrado : 04/11/2009

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Empty Re: [Resolvido]Exportar para excel relatório acima de 300 mil linhas

    Mensagem  JPaulo 18/8/2017, 14:28

    Não consigo entender, porque está a enviar um relatório para um Excel, quando o Excel recebe apenas linhas.

    O problema é você estar a usar o DoCmd.OutputTo acOutputReport, o Output não tem capacidade para fazer isso.

    Se você exportar a consulta em vez do relatório, vai levar mais de 1 milhão de linhas (1.048.576) sem problema.

    Código:
    Dim strCaminho$
    Dim strConsulta$
    strCaminho = "C:\SISGER" & getUsuarioAtual & ".xlsx"
    strConsulta = "SuaConsulta"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strConsulta, strCaminho, True


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Folder_announce_new Instruções SQL como utilizar...
    avatar
    jair.silva
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 31/05/2012

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Empty Re: [Resolvido]Exportar para excel relatório acima de 300 mil linhas

    Mensagem  jair.silva 18/8/2017, 17:30

    Prezado Paulo

    Infelizmente não rodou, aliás .. roda porem não salva o arquivo !

    Dim strCaminho$
    Dim strConsulta$
    strCaminho = "F:\Servidor_Landis_Gyr\SISGER_Relatorios" & getUsuarioAtual & ".xlsx"
    strConsulta = "RLStatusEquipGeral"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strConsulta, strCaminho, True



    Aonde estou errando??
    avatar
    jair.silva
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 31/05/2012

    [Resolvido]Exportar para excel relatório acima de 300 mil linhas Empty Re: [Resolvido]Exportar para excel relatório acima de 300 mil linhas

    Mensagem  jair.silva 18/8/2017, 20:19

    Paulo

    Me desculpe , estava errado a sintaxe de comando!



    On Error Resume Next
    Dim strCaminho$
    Dim strConsulta$


    strCaminho = "F:\Servidor_Landis_Gyr\SISGER_Relatorios\" & "StatusEquipamento_" & getUsuarioAtual & ".xlsx"
    strConsulta = "RLStatusEquipGeral"

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strConsulta, strCaminho, True

    Obrifgado pela ajuda! cheers cheers cheers

      Data/hora atual: 13/4/2021, 13:53