Fórum Exportar Para EXCEL #337070

Me manda seu email que eu te envio

Para akeles que precisarem vai o link

[url]http://www.gginfo.com.br/exporte.rar[/url]

// CRIE VARIAVEIS PARA LINHA E COLUNAS TIPO L1,L2,L3,C1,C2,C3 : INTEGER; //LINHAS E COLUNAS

// COLOQUE UM BOTÃO NO FORM

// CRIE VARIAVEL PARA CHAMAR A PLANILHA TIPO excel :variant;

// CRIE VARIAVEIS PARA O CABEÇALHO TIPO CA1,CA2,CA3 : STRING


procedure TfrmPrincipal.sbExportaClick(Sender: TObject);
var excel :variant;
var LA1,LA2,LA3: string;
begin

// CRIA O CABEÇALHO

LA1 :=´Serial Peça´;
LA2 :=´Local Detectado´;
LA3 :=´Setor de Origem´;

// ABRE A PLANILHA E INSERE OS DADOS DA TABELA

excel := CreateOleObject(´excel.application\´);
if not Excel.Application.Visible then
Excel.Application.Visible := true;
Excel.Workbooks.Add;
Excel.Cells[1,1] := LA1; //[coluna,linha]
Excel.Cells[1,2] := LA2;
Excel.Cells[1,3] := LA3;
C1 := 3;L1 := 1;
C2 := 3;L2 := 2;
C3 := 3;L3 := 3;

if(TABELA_NACIONALIDADE = ´BRASIL´) then
begin

// FAZ A VERIFICAÇÃO DE TODOS OS CADASTRADOS COMO BRASILEIROS A CADA NEXTE NOVA COLUNA E PREENCHIDA

while not dm.TABELA.Eof do // DM. PQ O CLIENTE ESTA DENTRO DE UM DATA MODULE
begin
Excel.Cells[C1,L1] := (dm.TABELA_NOME.AsString); //[coluna,linha]
Excel.Cells[C2,L2] := (dm.TABELA_IDADE.AsString);
Excel.Cells[C3,L3] := (dm.TABELA_NACIONALIDADE.AsString);
C1 := C1+1;
C2 := C2+1;
C3 := C3+1;

dm.TABELA.Next;
next;
end;
end;


///O RESTO VC ACHA FACIL NA NET COMO POR EXEMPLO INSERIR GRAFICOS ETC ETC....
VERIFICA SOMENTE OS END PQ TIREI O COD DE UMA APLICAÇÃO ANTIGA MINHA.
ESPERO QUE TE AJUDE
ASS: E.C.S

// NO USES INSIRA: ComObj,Mask //

NÃO SE ESQUEÇA DE INSERIR ESTES CARINHAS NO USES TMBÉM

voce esta passando true para o visible do excel...
assim ele abre a planilha, e como a minha pesquisa me retorna mais de 4mil registros.. fica mto lento..
n tem como eu escrever nesse .xls sem precisar abrí-lo?

ignorem isso...