Fórum Componente da palheta SERVERS para exportar para o Excel #353498

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, DB, DBTables, Excel2000, ExcelXP;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Table1: TTable;
    Table1Name: TStringField;
    Table1Capital: TStringField;
    Table1Continent: TStringField;
    Table1Area: TFloatField;
    Table1Population: TFloatField;
    btCopiar: TButton;
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    procedure btCopiarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.btCopiarClick(Sender: TObject);
var
  oleCelula: OleVariant;
  intContaLinha: cardinal;
begin
  intContaLinha := 1;
  ExcelApplication1.Caption         := ´Delphi conquista o Excel!´;
  ExcelApplication1.Visible[0]      := True;

  // Novo documento
  ExcelApplication1.Workbooks.Add(EmptyParam, 0);
  // Conecta o workbook
  ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
  // Conecta o worksheet (note o typecast)
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item[1] as ExcelWorkSheet);

  Application.BringToFront;

  // Formatar o cabeçalho
  ExcelWorkSheet1.Range[´A1´, ´A1´].Value[´País´];
  ExcelWorkSheet1.Range[´B1´, ´B1´].Value[´Capital´];
  ExcelWorkSheet1.Range[´C1´, ´C1´].Value[´Continente´];
  ExcelWorkSheet1.Range[´D1´, ´D1´].Value[´Área´];
  ExcelWorkSheet1.Range[´E1´, ´E1´].Value[´População´];

  ExcelWorkSheet1.Range[´A1´, ´E1´].Font.Bold       := 1;
  ExcelWorkSheet1.Range[´A1´, ´E1´].Font.Italic     := 1;
  ExcelWorkSheet1.Range[´A1´, ´E1´].Font.Underline  := 1;
  ExcelWorkSheet1.Range[´A1´, ´E1´].Font.Color      := RGB(0, 0, 255);
  ExcelWorkSheet1.Range[´A1´, ´E1´].Font.Name       := ´Verdana´;
  ExcelWorkSheet1.Range[´A1´, ´E1´].Interior.Color  := clSilver;

  Table1.First;
  while not Table1.Eof do
  begin
    Inc(intContaLinha);

    oleCelula := ´A´ + IntToStr(intContaLinha);
    ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
    [Table1Name.Value];

    oleCelula := ´B´ + IntToStr(intContaLinha);
    ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
    [Table1Capital.Value];

    oleCelula := ´C´ + IntToStr(intContaLinha);
    ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
    [Table1Continent.Value];

    oleCelula := ´D´ + IntToStr(intContaLinha);
    ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
    [Table1Area.Value];

    oleCelula := ´E´ + IntToStr(intContaLinha);
    ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
    [Table1Population.Value];

    Table1.Next;
  end;

  // Calcular totais das colunas D e E
  Inc(intContaLinha);
  oleCelula := ´D´ + IntToStr(intContaLinha);
  ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
  [´=SOMA(D2:D´ + IntToStr(intContaLinha - 1) + ´)´];

  ExcelWorkSheet1.Range[oleCelula, oleCelula].Font.Color  := clRed;

  oleCelula := ´E´ + IntToStr(intContaLinha);
  ExcelWorkSheet1.Range[oleCelula, oleCelula].Value
  [´=SUM(E2:E´ + IntToStr(intContaLinha - 1) + ´)´];

  ExcelWorkSheet1.Range[oleCelula, oleCelula].Font.Color  := clRed;

end;

end.