[firebase-br] Exportar os dados para o excel

[marcelo - teflamar]

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