delphi 控制 EXCEL 数据透视表

虽说报表多又难做，做报表相当容易。

做报表也可以偷懒的，超级实用又省事。只需要做一个报表，这个报表里面包括几乎所有的数据字段，然后将查询到的数据导出到

excel中，利用excel自带的“数据透视”功能，客户只需要点几下鼠标就可以生成自己所需要的报表。通过这种方法，一个报表可以产生n个

报表。通过几行代码可以操纵excel打开“数据透视”功能。冒必要在自己的程序里面做数据透视功能了，要做到excel数据透视那种功能效果，

还是要花费不少时间的。

function GetExcelCol(iCol: integer): string;

begin

Result := '';

case iCol of

1: Result := 'A';

2: Result := 'B';

3: Result := 'C';

4: Result := 'D';

5: Result := 'E';

6: Result := 'F';

7: Result := 'G';

8: Result := 'H';

9: Result := 'I';

10: Result := 'J';

11:Result :='K';

12:Result :='L';

13:Result :='M';

14:Result :='N';

15:Result :='O';

16:Result :='P';

17:Result :='Q';

18:Result :='R';

19:Result :='S';

20:Result :='T';

21:Result :='U';

22:Result :='V';

23:Result :='W';

24:Result :='X';

25:Result :='Y';

26:Result :='Z';

end;

end;

procedure TfrmReportSale.cxButton2Click(Sender: TObject); var iRows, iColumns: Integer; bb: OleVariant; s:string; begin if (not cds.Active) or cds.IsEmpty then Exit; if SaveDialog1.Execute then begin ExportGridToExcel(SaveDialog1.FileName, cxGrid1);

ExcelApp.Visible := True; WorkBook := ExcelApp.WorkBooks.Open(SaveDialog1.FileName); iRows := WorkBook.WorkSheets[1].UsedRange.Rows.Count - 1; iColumns := WorkBook.WorkSheets[1].UsedRange.Columns.count; s:=UntSysConst.GetExcelCol(iColumns);

bb := ExcelApp.ActiveWorkbook.PivotCaches.Add(xlDatabase, '销售报表!A1:' + s + inttostr(iRows)); bb.CreatePivotTable('', '销售报表'); ExcelApp.ActiveSheet.PivotTables['销售报表'].SmallGrid := False; application.Minimize; end; end;