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

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?

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

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??

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!