用Delphi在Excel中建立数据透视表

var
  ExcelApp: Variant;
  Workbook: Variant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  Workbook := ExcelApp.Workbooks.Open('C:\path\to\your\excel\file.xlsx');
end;

var
  Worksheet: Variant;
  PivotCache: Variant;
begin
  Worksheet := Workbook.Worksheets('Sheet1');
  PivotCache := Workbook.PivotCaches.Create(xlDatabase, Worksheet.Range('A1:D10'));
end;

var
  NewWorksheet: Variant;
  PivotTable: Variant;
begin
  NewWorksheet := Workbook.Worksheets.Add;
  PivotTable := PivotCache.CreatePivotTable(NewWorksheet.Range('A1'), 'PivotTable1');
end;

begin
  PivotTable.PivotFields('Category').Orientation := xlRowField;
  PivotTable.PivotFields('Category').Position := 1;
  
  PivotTable.PivotFields('Product').Orientation := xlRowField;
  PivotTable.PivotFields('Product').Position := 2;
  
  PivotTable.PivotFields('Sales').Orientation := xlDataField;
  PivotTable.PivotFields('Sales').Function := xlSum;
  PivotTable.PivotFields('Sales').NumberFormat := '#,##0.00';
end;

begin
  Workbook.Save;
  Workbook.Close;
  ExcelApp.Quit;
end;