Fórum Problemas exportando query para o excel #218430

sobe

Como você está fazendo isto?

Eu exporto pela rede, uma tabela do mysql que está no servidor. É super rápido. Estou usando o componente TscExcelExport.
Talvez este componente resolva o seu problema.

T+

segue o codigo q estou usando

[b:7d0443d472]var
coluna, linha: integer;
excel: variant;
valor: string;
begin
if query1.Active=true then //verifica se a query está aberta
begin
statusbar1.panels[0].text:=´Aguarde... Exportando dados para o Excel...´;
screen.cursor := crSQLWait;
cursor:=crSQLwait;
try
excel:=CreateOleObject(´Excel.Application´);
excel.Workbooks.add(1);
except
Application.MessageBox (´Versão do Ms-Excel´+
´Incompatível´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
end;

query1.First;
try
for linha:=0 to query1.RecordCount-1 do
begin
for coluna:=1 to query1.FieldCount do // eliminei a coluna 0 da relação do Excel
begin
valor:= query1.Fields[coluna-1].AsString;
excel.cells [linha+2,coluna]:=valor;
end;
query1.Next;
end;

for coluna:=1 to query1.FieldCount do // eliminei a coluna 0 da relação do Excel
begin
valor:= query1.Fields[coluna-1].DisplayLabel;
excel.cells[1,coluna]:=valor;
end;
excel.columns.AutoFit; // esta linha é para fazer com que o Excel dimencione as células adequadamente.
excel.visible:=true;
except
Application.MessageBox (´Aconteceu um erro desconhecido durante a conversão´+
´da tabela para o Ms-Excel´,´Erro´,MB_OK+MB_ICONEXCLAMATION);
end;
end;
statusbar1.panels[0].text:=´Completado com sucesso!!!!´;
screen.cursor := crDefault;
cursor:=crDefault;
query1.Close;
end;[/b:7d0443d472]

peguei esse código aqui no fórum mesmo

puxei o componente q vc falou, so q não tem nenhum exemplo de como usá-lo, vc tem algum exemplo para me passar?

obrigado

No link abaixo, você baixa o componente e acompanha um exemplo bem amplo do seu uso:
[url]http://www.torry.net/db/access/db_bdeexport/exporte.zip[/url]

Acho que realmente é mais demorado exportar no braço como você fez.
Espero que resolva o seu problema.

[ ]´s

valeu cara, vou testar durante o final de semana e segunda posto aqui o resultado

até logo

se vc baixou o programa coloca ele novamente pois o link acima não funciona +.... valewww