[Resolvido]nao exporta mais que 65.000 linhas 2

Kleber.
Desculpe a minha falta de atenção

Só um porém
O seu código funciona perfeitamente, mas originariamente ele exportava uma query em cada Excel.
Tem como com esse código fazer isso.
Seria ideal, pois para envio ficaria mais leve o arquivo, pois com ele exportando todas as query's em um só Excel o arquivo fica muito grande.

Obrigado

Poderia explicar melhor ?

kleber. Boa noite.

Vou tentar explicar melhor.
Se voce olhar o primeiro código que eu postei voce vera que ele cria 3, 4 5 etc consultas quebrando a tabela de acordo com o top e o split informado e exporta cada consulta em um excel.
O seu código está perfeito ate porque ele exporta para o excel binário, o que é ótimo pois o arquivo já fica mais leve, porém ele exporta todas as consultas no mesmo Excel, "em shits diferentes", mas no mesmo Excel.
Tem como ele exportar cada consulta em um Excel, ou seja, se for quebrada a tabela em 4 partes ele exporte para 4 Excel com uma shit em cada um.
Exemplo.
Base 1 com uma parte
Base 2 com outra parte
Base 3 com outra parte, e assim por diante.
Espero que tenha conseguido me expressar melhor.
Desde ja agradeço a sua atenção

Bom dia !

A rotina de exportação, concentra para um mesmo arquivo, pois se trata de um só, no caso chamado de "Base", tente da seguinte forma:


Option Compare Database

Private Sub Comando0_Click()
Dim q As DAO.QueryDef, separacao As Variant

separacao = Split("1,150001,300001,450001,600001", ",")
For i = 1 To 5
Set q = CurrentDb.CreateQueryDef("Query" & i, "SELECT TOP 150000 * FROM TESTEVBA WHERE ID>=" & separacao(i - 1))

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _
q.Name, "Base"&i, True
Next
MsgBox "cabei mano", vbExclamation

End Sub

No caso o nome do arquivo que antes era "Base", foi adicionado a variável i, diferenciando os arquivos, ficando da seguinte forma "Base"&i.

No aguardo.

Kleber. Bom dia

Agora sim está perfeito.
Mais uma vez muito obrigado pela ajuda e solução
Até uma próxima

Abs

Disponha !

Por gentileza, não esqueça de marcar como resolvido!

O fórum agradece.

Obrigado

Já está marcado como resolvido

Abs