Um exemplo básico que demonstra a técnica da criação dinâmica de planilhas Excel em Delphi usando o Objeto TExcelApplication da paleta SERVERS do Delphi 5.0

// Coloque no Form um objeto TExcelApplication (Paleta Servers do Delphi 5.0) procedure TForm1.Button1Click(Sender: TObject); var WorkBk    : _WorkBook;     WorkSheet : _WorkSheet;     FileName  : String; begin    ExcelApplication1.Connect;    Try       FileName := 'c:\\windows\\desktop\\demo.xls';       ExcelApplication1.Visible[0] := False;       ExcelApplication1.DisplayAlerts[0] := False;       ExcelApplication1.WorkBooks.Add(xlWBatWorkSheet,0);       WorkBk := ExcelApplication1.WorkBooks.Item[1];       WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;       WorkSheet.Name := 'Exemplo';       // Grava dados referenciando as celulas por coordenadas absolutas       WorkSheet.Cells.Item[1,1].Value:='Mês';       WorkSheet.Cells.Item[1,2].Value:='Valor';       // Grava dados referenciando as celulas por coordenadas relativas       Worksheet.Range['A2','A2'].Value := 'Janeiro';       Worksheet.Range['A3','A3'].Value := 'Fevereiro';       Worksheet.Range['A4','A4'].Value := 'Março';       Worksheet.Range['A5','A5'].Value := 'Soma';       Worksheet.Range['B2','B2'].Value := 3210;       Worksheet.Range['B3','B3'].Value := 4432;       Worksheet.Range['B4','B4'].Value := 3231;       // Grava uma fórmula       Worksheet.Range['B5','B5'].Value := '=SUM(B1:B3)';       // Configura a fonte       Worksheet.Columns.Font.Bold := True;       Worksheet.Columns.HorizontalAlignment := xlRight;       WorkSheet.Columns.ColumnWidth := 14;       WorkSheet.Range['A2','A4'].Font.Color := clBlue;       WorkSheet.Range['A2','A4'].HorizontalAlignment := xlHAlignLeft;       WorkSheet.Range['A2','A4'].ColumnWidth := 31;       WorkSheet.Range['B2','B5'].Font.Color := clRed;       WorkSheet.Range['B2','B5'].NumberFormat := '#.##0,00';       // Salva a planilha       ExcelApplication1.ActiveWorkbook.SaveAs(FileName,xlNormal,'','',false,false,xlNochange,xlUserResolution,False,EmptyParam,EmptyParam,0);       ExcelApplication1.Quit;    Finally       ExcelApplication1.Disconnect;    End; end;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 20/04/2002 10:09:11
Visualizado..: 1439 vezes
Fonte........: AdeN Knowledge DB