[firebase-br] Exportar os dados para o excel

[Carlos Alberto dos santos]

Obrigado amigo funcionou , sem querer abusar como faço para colorir a celula 
mesclar celulas etc? existe alguma apostila dica desse assunto obrigado...


>From: "marcelo - teflamar" <marcelo em teflamar.com.br>
>Reply-To: FireBase <lista em firebase.com.br>
>To: "FireBase" <lista em firebase.com.br>
>Subject: Re: [firebase-br] Exportar os dados para o excel
>Date: Fri, 21 Oct 2005 15:29:52 -0200
>
>veja o exemplo, o "autofit"
>
>procedure tdm.gera_excel(xquery1:tibquery;wtitulo,warquivo:string);
>// uses oleserver,excel97,comctrls,comobj
>var Sheet , Column,XLApp : Variant;
>     x,c:smallint;
>begin
>     XLApp:= CreateOleObject('Excel.Application');
>     XLApp.Visible := True;
>     XLApp.Workbooks.Add(xlWBatWorkSheet);
>     XLApp.Workbooks[1].WorkSheets[1].Name := 'planilha';
>
>     Sheet := XLApp.Workbooks[1].WorkSheets['planilha'];
>     Column := XLApp.Workbooks[1].WorkSheets['planilha'].Columns;
>{    Column.Columns[1].ColumnWidth := 13.00; // Largura das Colunas }
>     Column.Columns[1].Font.Color := clBlue; // Define a cor azul para a
>coluna
>     for c:=0 to xquery1.FieldCount-1 do
>     begin
>         Sheet.cells[2,c+1]:= xquery1.fields[c].fieldname;
>     end;
>     x:=2;
>     while not xquery1.eof do
>     begin
>         inc(x);
>         for c:=0 to xquery1.FieldCount-1 do
>         begin
>             Sheet.cells[x,c+1]:=''''+xquery1.fields[c].asstring;
>         end;
>         xquery1.Next;
>     end;
>     for c:=0 to xquery1.FieldCount-1 do
>     begin
>         Column.Columns[c+1].AutoFit;
>     end;
>     Sheet.cells[1,1]:= wtitulo;
>     Sheet.SaveAs(warquivo);
>     ShowMessage('Planilha Salva em  '+warquivo);
>end;
>
>----- Original Message -----
>From: "Carlos Alberto dos santos" <sdcarlosalberto em hotmail.com>
>To: <lista em firebase.com.br>
>Sent: Friday, October 21, 2005 2:58 PM
>Subject: [firebase-br] Exportar os dados para o excel
>
>
>olá amigos alguém sabe como faço para mudar o tamanho de uma coluna  e
>largura de uma celuna na hora da exportação para o excel. ex:
>Excel.WorkBooks[1].Sheets[1].Col.[1].width := 60  fiz dessa forma mais não
>funcionou.
>Excel.WorkBooks[1].Sheets[1].Cells[1,1].heigth := 10. não funcionou
>
>Alguém teria alguns parametros para me passar? Obrigado valeu...
>
>_________________________________________________________________
>MSN Messenger: converse online com seus amigos .
>http://messenger.msn.com.br
>
>
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>--
>No virus found in this incoming message.
>Checked by AVG Anti-Virus.
>Version: 7.0.344 / Virus Database: 267.12.4/146 - Release Date: 21/10/2005
>
>
>
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço 
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
Chegou o que faltava: MSN Acesso Grátis. Instale Já! 
http://www.msn.com.br/discador